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y.%-9 vx«e 2x»B 
ZF*-t6 

yR-i.5** XP-33 
vR»l VP-14 

ZF«XR,2P xr-XR/XP VF-¥P/VR 
PRINT "L" 
3 FOR Zl'-QV. TO <"" 

\ i?-|ifcSlrf* ZI>zp ooto 56e 

) VS--29 

) :-:L=lNT(.5*S§R(xPixp-ZT»ZTn 

I FOR XI--XL TO XL 
XT=SGR<XI»XI+ZT*ZT> 
XT=XTiXF 

-HI 

1N(XT)*VF 
.]:SVS<?944) 
VT 



T Gi IF ««■■'■' SOTO 379 



Plotting a 
Revolution 



iFoe 

IF 08 
1F0A 
IFOC 
1F0E 
IF 10 
IF II 
IF 13 
1F15 
IF 17 
IF 1 A 
1F1C 
1F1E 
1P20 
1F22 
1F23 
IF25 
IFZ7 
IF29 
1F2A 
1F2C 
IF2D 
IF2E 
1F2F 
1F31 
1F32 
1F31 
1F36 
1F3B 



n.< DO 
AO 02 
Bl 7C 
10 10 
C8 

C9 FF 
FO 05 
A 9 80 
llC 2 A 
Bl 7C 
10 F7 
JO 0* 
DO 05 
C8 

Bl TC 
10 03 
A9 7F 
C8 

95 23 
E« 
98 
18 

69 06 
AS 

C9 2C 
DO D6 
A5 23 
18 



[.nop 



BITR 



NEGI 



POSI 



THCH 



ORG 

LBXIM 

LOTIH 

LDAIY 

BPL 

INT 

CKPIM 

BED 

LDA1K 

J HP 

LDAIT 

BPL 

EMI 

BNE 

INI 

L0A1Y 

BPL 

LUAIM 

1NY 

STAX 

INX 

TIA 

CLC 

ADCIH 

TAT 

CMP1M 

BNE 

LDA 



$1F08 

too 

$02 
$TC 

posi 

$FF 

NEGI 

|8u 

STOH 

$7C 

BITS 

STOH 

THCH 

»7C 

STOR 

$7F 

PE 



$06 

$2C 

LOOP 

PE 



BEGIN PLOTTIMG ROUTINE 

TRANSFER VALUES FOR If 

II, Z\ AND Pf, (», 
HI TO EI, WT, ZE, 
AND PE, QU, IN, 
RESPECTIVELY, REDUCE 
VALUES FROM TWO 
BITES TO ONE 



CHECK FOR END OF TRANSFER 
COMPUTE EXP s PE + EX 
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A high quality, challenging game for you 
and the computer. 

Order FASTGAMMON on Cassette. $19.95 
On Diskette $24.95 



from RAINBOW 




T l Machine Language, j 
cursor-based text editor for 1GK Apple. ; 

• Features format capabilities of most text 
editors. 

• All commands are control characters. 

• Enables you to define your own function ; 
commands. 

Order PIE on Cassette: $19.95 

On Diskette $24.95 




SARG V; for 24K APPle 

• Flip back and ftjirth between board and 

text with ESC. 
•Correct wrong moves 
•Analyze your position 
Order SARGON on Cassette $19.95 



Call or write today.for your FREE Apple 
Software Catalog. We welcome B/A-VISA 
and Mastercharge. $orry, no CODs. Please 

and handling. Califor- 

Sales Tax. 



add $1.25 shipping 
nia residents add 8% 



We ship promptly tin receipt of your pre- 
paid order. Order diifect from: 




Garden Plaza 
9719 Reseda Blvd., Northridge 




■i'.?F. Machine language program 
for 16K Apple. 

• Define your own character set and graphic 
shapes. 

• Complete English upper/lower case charac- 
ter set. 

• Complete Greek Alphabet with upper/low- 
er character set. 

• Scroll, vary window size, invert characters, 
switch back and forth between two char- 
acter sets. 

Order Hi-Res Char. Gen. on Diskette $19.95 




• Define a 3-D lo-res shape. 

• Animate with full perspective. 

• Includes 3 demo shapes. 

Order 3-D ANIMATION on diskette .$24.95 



Shipping Center 

Ca 91324 (213)349-5560 
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AIM-65 



P/N 

A65-1 

A65-4 

A65-A 

A65-B 



excert Incorporated 



AIM-65 w/1K RAM 
AIM-65 w/4K RAM 
Assembler ROM 
BASIC ROMS 



Qty 1-9 

$375 

$450 

$85 

$100 



EXCERT has concentrated on the AIM-65 tcj guarantee YOU that the products we offer are fully 
compatible. We know how these products wiork since they are used in our systems. EXCERT can 
help you get the system YOU want! 



P/N 

PRS1 



PRS2 
ENC1 

ENC2 
TPT1 

MCP1 

MEB1 

PTC1 
VIBI 



ACCESSORIES 

+ 5V at 5A, +24V at 2.5A, 
±12V at 1A (does not fit in- 
side ENC1) 

+ 5V at 5A, +24V at 1A 
(mounts inside ENC1) 

AIM-65 case with space for 
PRS2 and MEB1 or MEB2 or 
VIB1 

ENC1 with PRS2 inside 



Approved Thermal Paper 
Tape, 6/165' rolls 

Dual 44 pin Mother Card takes 
MEB1, VIB1, PTC1 

8K RAM, 8K Prom sockets, 
6522 and programmer for 5V 
Eproms (2716) 

Prototype card same size as 
KIM-1, MEB1, VIB1 

Video bd with 128 char, 128 
user char, up to 4K RAM, light 
pen and ASCII keyboard inter- 
faces 

MCP2 Single 44 pin (KIM-4 style] 
Mother Card takes MEB2, 
PGR2 and offers 4K RAM 
sockets 

with 4K RAM 

MEB2 16K RAM bd takes 2114's 

with 8K RAM 
with 16K RAM 

PGR2 Programmer for 5V Eproms 
with ROM firmware, up to 8 
Eproms simultaneously 

with 4 textool skts 



$95 
$50 

$45 
$100 

$10 

$80 

$245 
$40 

$245 



$119 
$169 

$125 
$225 
$325 



$195 
$245 



SYSTEMS 

"ASSEMBLED & TESTED" 

All AIM-65 systems are self contained and have 
the power supply (PRS2) mounted inside ENC1. 

"STARTER" SYSTEMS 
P/N 

SB65-1 A65-1 in ENC2 $475 

SB65-4 A65-4 in ENC2 $540 

SB65-4B Same Plus BASIC $640 

"EXPANDED" SYSTEMS 



P/N 



"R" «f*>> "D" 

MEB1 MEB2 VIB1 



E_65-4 A65-4, ENC2, 
w/one MEB1, 
MEB2, orVIBI $775 $855 $775 

E_65-4B Same Plus 

BASIC $875 $955 $875 

Higher quantities and systems with pther op- 
tions quoted upon request! 

Mail Check or Money Order To: 

EXCERT, INCORPORATED 

Attn: Laurie 

4434 Thomas Avenue South 

Minneapolis, Minnesota 55410 

(612) 920-7792 

Add $5.00 for shipping, insurance, and hand- 
ling. 

Minnesota residents add 4% sales tax. 



Faster than a speeding mini 
Able to leap tall micros 
in a single bound 
4K RAM 

8K ROM 




$279 
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Superboard, by Ohio 
Scientific, — the computer 
on a board — even 
includes a keyboard and 
interface for video display 
and cassette recorder. 






VISA A\D MASTER- 
CHA RGE ORDERS A RE 
BOTH ACCEPTED. 





O^r 



IT'S SUPERBm® 

Its more than a barjgain, it's a real steal. 



Name 



Address 

City 

State _ 



D Send me a Superboard II $279 enclosed 

Payment by: BAC(VISA) MasterCharge 

Credit Card Account # 



_Zip_ 



Phone 



.campuTEriaHUP 

Boston Union N H. ! Cambridge 

. 590Comm. Ave. flte. 16B ! 288 Norfolk St. tx P ires 

(across from 8. U.) 603-473-2323! (nearM.l.T.) TOTAL CHARGED OR ENCLOSED 

■247-0700 661-2670 Atl orders shipped insured UPS unless otherwise requested 




Table of Contents w 

L'^byiohniSMib'iirne ''' .■; ".'; .**%'.%. •; • 

" k%fe;-MarejaL.De Jong ■'. '~.:. ; '. /'•;--', 

A^teMft ^wmbenng ■ ; -.'-'^ r ':.?.. -'/v? ■ ... 

f«(feve ; ltpeJ«^tingPETSource Programs and Object Code 

M%hy ProfessW^aiVey Ei! Herman : . .' 'X;. ; ; 

££H$fn^e'fa&Lane^v . '« *■*•,'• 

^Jjpy!^fdhaiOTp;^urJCCihiq r'.- " ,' /■>-'; :^<V ' '"' •. 

|ISyilj^^i.nMihet i v'.'- : 4'.-., \\/ .'"■:• ,' .'V,.' '^-A - 

rp«# « "" -. ' ■ " --* > --«. r > 

;AIM^SWtt^am Shack ^-' 'w ■ rV,:, y.:.;.^ ; /- 

^Sa^?Maw|iLpeJ6ng ,., •;'., ■-,-';-£.■ '->^. 
^i^^ftP^oc^o'rtqrthePET '':■'• ■ ;• ! r.; '? 



\ 



Irffi, 



•Tlay Ptfbtf Anf fducationar Language for the 6502 ' 

Tr« MrpRb iglf tviare Catalogue: XK : < ''■■': 

£".b3f^fke:R«fe '^-:- '■ ■- "- <■• ':', ~. J : 

8080 Simuldthin with a 6502 

• byDawjUttfcreary 

Writing f^orMMRO 

bySbaw^Sfilmari ' 



-■{$ 

IIP 



i ABComduiersv ; 

.' Beta ConiputeF Devices '■• 

l;COMPi«HMicrbs¥stem& ; 

CompttS Components 

TlleCowiputerist, Inc. 
! CbmpufejrSriop • 

Connecifcut microcomputers 

Electrom: Specialists, Inc. 

EXCEpfchic. 

H..GetIafcomputer Systems 
I HudsbntpKgitat Efectronics 
; OptimaCTechnotogy, Inc. 
hPowe^M, Inc. 

Proofardiva International 



I' 111 

'tt;! 
'•'itj 

'34 1 

35| 

:53-i 



Advertiser's Index 



25 


Progressive Software. - 


25 


P.S. Software House ■• ; 


50 


Pygmy Programming 


, 33 


Rainbow Computing, Inc. 


i ^7 


RNB Enterprises 


2 


SKYLES Etectronic Work 


4 


Small System Services, lr 


57 


Softouch. Inc. 


t 


Softside Software 


t9 


SYBEX 


28 


Syneigistic Software 


42 


Textcast 


2d 


Weldon Electronics 


BC 


West Side Electronics 



- .:vPubHst\e&|||&i 






Iras 



" ' iM^gjjjtif. i. 









ttM$ritl^^WMMeriMiMn^^* 4 '^»^i 

!' P0S^>^EflrSteTttaira%ri&Jefi^(K5'TO'^'^d 

:■- MICRO ■'-. - •'' '^ksi^*' : : ^ ; ^ 

;• P.ffi Box SSOyS -'.^ W-'"''!"- ' ! ^'".1 

. '.'ci^^stori};iMA(Haa«' s : ; ' r 5'i ; 1:;:-;/ i ;!; ; ~-?| 

Po*>llcat)ot» N(«jb«t ; ^,CpTp.t!9te*OT' ?!<-t i 

Subscription laCMIted „;^r. :; 

!. «:$i5.Q6pef yeacRZipstM-r?''-'-.' : ' ■' v"-^'i 

Entire cooteiite^copyriaM;® tS7»byc';4'?r "J.1 

MICRO. Ink. tnc?. 'j ./ ! '. r^l 



I'l X64-:i 

t ; V-'.25:i 
;-lFC-i 

39,40' 

;.-^:63 i 

tBC 

;• ;-5?. 

!' ."58 
.59 i 

l'-"..'49 
58 



usrasaa*, 



CONNECTICUT miciioCOMPUTER , Inc. 

150 POCONO ROAD ■ BROOKFI^LD, CONNECTICUT 06804 
TEL: (203)775-9659 TWX: 77 0-456-0052 



0OM 

SYSTEMS 



RS-23Z 
MOD 



2 



RS-232 
INTERFACE MOOULE 



GPIB 
MOD 



1 



GPI8 0EEE-488) 
INTERFACE MODULE 



PETMOO 




PET INTERFACE / H s/ ~^ r 
"7 1 KIMMOO {/r\ r 





KIM INTERFACE 



TRS-80 MOD 



TRS-80 INTERFACE 



ETC. 



MANUAL AND 
DISPLAY MODULE 



MANMO01 ] 




UULJLJLJ 

I ANAMANl! 



ANALOG 
MANIFOLD 
MOOULE 



SENSORS 
•TEMPERATURE 

• VELOCITY 

• PRESSURE 

• db 

• pH 

• ACCELERATION 

• HUMIDITY 
•LIGHT LEVEL 

• FLUID LEVEL 

• ETC.. . 



DAM SYSTEMS by CmC 
A complete systee of modules tcj lei your computer listen 
to the real iworld. 



DAM SYSTEMS PRICE LIST 



HAM SYSTEMS coufonenls 



AIM1A1 ■- Analog Input Module 

U 8-bil analog inputs - 100 microsecond conversion lime - 3 
state output - reouires one 8-bit computer output port for 
control and one 8-bit computer input pxt for data. 

F'OUl - Power Module 
Supplies Poyer for one AIM16 nodule. 

ICON -- Input. Connector 

For connecting analog inputs to the A1HU - 20 pin card edse 
connector - solder eyelets* 

DCQN - Output. Connector 

For connectina the AIH1S to 3 computer - 20 pin card edse 
connector - solder eyelets. 

MANMOD1 - Manifold Module 

Use in Place of ICON. Screy terminal barrier strips for 
conneeiind Joysticks, potentiometers. voUase sources? etc. 
Eliminates the need for soldering. Plugs into the A1H16. 

ANAMANl. - Analoa Manifold Module 
Use in place of ICON. Connects MX SYSTEMS SENSES lo the UHli 
uilhout solderind - sensor cables Just plus in. Pluss into the 
MM6 or the HMH0D1. 

sensor;;; 

Sensors fcr temperature, pressure* flow, humidity, level. PH. 
motion, etc. 

COMPUTER INTERFACES 

For the PET. KIH> TRS-80. etc. Use in place of OCON. Eliminates 
the need for soldering" or special construction. 

PETMOD - PEL"!' Interface Module 
Gives ujo IEEE ports, one user port and one DM SYSTEKS 
interface porL. Saves year and tear on the PET's printed 
circuit board. Also called the PETSAW. 

KIMMQIi - KIM Interface Module 
Gives one application connector PorL and one DAK SYSTEMS 
interface port. 



* 1/9. 



$9.95 



TEA 



TBA 



Tfci 



fBA 



CABLE: "A" ■■■■ Interconnect Cables 
Connects computer interface to AlHlor WNMSli XF'ANIKl. etc. 

CABLED A24 - Interconnect Cable 
24 inch cable with interface connector on one end and an OCON 
equivalent on the other. 

MANHIS1 - Manual, and Display Module 
Connects oeUeen the A1H16 and the cotPuter interface, Allous 
kanual or computer control of the AIKl^. Bispiaas channel 
nuiber and data. 

GPIB MOD - GPIB i TEIIETE -498 ; Inter fat 
Alloys the DAK SYSTEMS hODULES to be used uith the GPIB bus 
instead of a computer's other 1/0 ports. 

RS232 MUD - RS232 Interface Module 
Alloys the BAH SYSTEMS HODULES to be used uith an RS-232 port 
x terminal. 

XE'-'ANURl - Expander Module- 
Alloys up to 128 3-bit analod inputs (3 A1H16 fables) to be 
connected to one system. 



DAM SYSTEMS sets 



AIM161 Starter Set 1 $189.00 

Includes one AIHlmli we P0U1. one ICON and one 0C0N. 

AIM161. Starter Set 2 #239.00 

Includes xe AIMot. one POUli one HAMUD1 and one OCW. 

PETSETla *29S.oO 

Includes one PETH0D, one CABLE «*. one AIHlsli one PQV1 and 
aneHMMDl. 

KIMSETTla 428S.Q0 

Includes we KIHflOD, one CABLE A24. one AIHlol. one POI1 and 
one IWHQD1. 



Plotting a Revolution 



John Sherburne 

206 Goddard 

White Sands Missile Range, NM 88002 



An assembly language plotting routine that 
is callable from BASIC will simplify and 
speed up the high resolution plotting process. 



What does fomenting rebellion have 
to do with microcomputing? Plotting a 
revolution refers to the creation of three 
dimensional figures, called solids of 
revolution, that are formed by rotating a 
two dimensional figure about an axis to 
form a solid. 

Solids of revolution can be generated 
and displayed, under BASIC, by using a 
fast, general purpose assembly langu- 
age plotting routine and a technique 
that allows the assembly language 
routine to access BASIC variables. The 
plotting routine and the BASIC langu- 
age interface are building blocks used to 
construct a generalized program to 
display solids of revolution. 

Plotting Routine 

The purpose of the assembly langu- 
age plotting routine is to simplify and 
speed up the high resolution plotting 
process. It also allows the operator to 
choose any point as the center and plot 
coordinates relative to that center, and it 
allows the option of plotting with a 45 
degree perspective. To accomplish all 
this, six parameters must be passed 
from BASIC: P%, Q%, R%, X%, Y% and 
Z%. 

P% and Q% are the screen location 
for the center of the plot. The screen 
contains 80x50 plot positions so 
P% = 40 and Q% = 25 would plot 
relative to the center of the screen. 

R% specifies the type of plot. If the 
zero bit of R% is set (R% is odd), the plot 
is displayed as though viewed straight 
on. If R% is even, the plot is at a 45 
degree perspective to the viewer's right. 

If the one bit of R% is not set, the plot- 
ting routine will plot over any non-plot 




UIST 



xx-8 : vx-a : zx-e 

PRINT n Li ff 



OR ZI»-24 TO 17 STEP 2 
i Zx=ZI+6ZT=ZI/S 
i FOR XI=-48 TO 49 

i28 XX=XI :XT=XI»2«*/80 
86 VT=<C0S(XT*ZT)+C0S<XT))»3 
50 IF VS<VT GOTO 364 
68 V1=VT:V2=VS 
62 GOTO 378 
64 V1=VSV2=VT 
79 FOR VI=V2 TO VI STEP -1 
88 VX=VI 
86 SVS<7944) 
T VI 
VT 



IF <3« 



00 TO 578 



Figure 1: Two sine waves of different frequencies. 
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characters on the screen and erase 
them. If the one bit is set, non-plot 
characters on the screen will not be 
erased. The other bits of R% are ig- 
nored. 



MICRO-WARE ASSEMBLER 65XX-1.0 



X%, Y% and Z% are the coordinates 
of the point to be plotted. The X axis is 
horizontal, the Y axis is vertical and the 
Z axis is either vertical or at a 45 degree 
angle, depending on R%. 

The most complex problem in making 
three dimensional plots is to draw only 
lines which are visible and to eliminate 
lines hidden to the viewer. The plotting 
routine can perform hidden line elimina- 
tion automatically for one type of figure; 
a figure which can be imagined as an ob- 
ject covered by a very large, tight fitting 
sheet. More precisely, the figure must 
have a single Y value for each (X,Z) value 
pair, and the bottom of the figure will be 
hidden from view. 

If such a figure is plotted, starting 
with the lowest value of Z and progress- 
ing in order to the highest value of Z, the 



,.„-i.5»»XP-35 
yp«J vP«14 

ZF-XR/ZP : XF-XR/XP : YF- YP./YR 
PRINT "L" 

i FOR 21— OX TO <49-Q5p 
lie IF ZK-ZP OR ZI>2P GOTO 560 

139 ZT=ZI*XP/ZP 

140 Z'/.=ZI 
159 VS=-20 

209 XL=INT<-5fSQR<XP»XP-ZT*ZT>> 

210 FOR XI=-XL TO XL 

SXT=SOR<XI*XI+ZT»ZT) 
XT=XT*XF 

| X/i*X I 

i VT-SlN(XT)iVF 
i Y%-9T: SYS (7944) 



IF 61 



GOTO 570 



PLOTTING A REVOLUTION 

MODIFIED 7-17-79 BY MICRO STAFF 

PAGE ZERO VARIABLES FOR VERIFICATION ROUTINE: 




Figure 2: Sine wave rotated about the Y axis. 



1F08 




STAT 


• 


$0023 


1F08 




VFLAG 


• 


$0024 


1F08 




VARY 
» PAGE 


• 
ZERO 


$0025 
VARIAB 


1F08 




PE 




$0023 


1F08 




QU 




$0021 


1F08 




AR 




$0025 


1F08 




EX 




$0026 


1F08 




WY 




$0027 


1F08 




ZE 




$0028 


1F08 




EXPP 




$0051 


1F08 




WYPP 




$0052 


1F08 




RHI 




$0053 


1F08 




EXP 




$0051 


1F08 




WYP 




$0055 


1F08 




CHAR 




$0056 


1F08 




FLAG 




$0057 


1F08 






ORG 


$1F08 


1F08 A2 


00 




LDXIM 


$00 


1F0A AO 


02 




LDYIM 


$02 


1F0C B1 


7C 


LOOP 


LDAIY 


$7C 


1F0E 10 


10 




BPL 


POSI 


1F10 C8 






INY 




IF 1 1 C9 


FF 




CMPIM 


$FF 


1F13 FO 


05 




BEQ 


NEGI 


1F15 A9 


80 


BITR 


LDAIM 


$80 


1F17 4C 


2A 1F 




JMP 


STOR 


1F1A B1 


7C 


NEGI 


LDAIY 


$7C 


1F1C 10 


F7 




BPL 


BITR 


1F1E 30 


0A 




BMI 


STOR 


1F20 DO 


05 


POSI 


BNE 


TMCH 


1F22 C8 






INY 




1F23 B1 


7C 




LDAIY 


$7C 


1F25 10 


03 




BPL 


STOR 


1F27 A9 


7F 


TMCH 


LDAIM 


$7F 


1F29 C8 






INY 




1F2A 95 


23 


STOR 


STAX 


PE 


1F2C E8 






INX 




1F2D 98 






TYA 




1F2E 18 






CLC 




1F2F 69 


06 




ADCIM 


$06 


1F31 A8 






TAY 




1F32 C9 


2C 




CMPIM 


$2C 


1F3M DO 


D6 




BNE 


LOOP 


1F36 A5 


23 




LDA 


PE 


1F38 18 






CLC 




1F39 65 


26 




ADC 


EX 


1F3B 70 


08 




BVS 


OFLO 


1F3D 16 


25 




LSR 


AR 


1F3F BO 


06 




BCS 


CLER 


1FM1 65 


28 




ADC 


ZE 


1F43 50 


02 




BVC 


CLER 


1F15 A9 


7F 


OFLO 


LDAIM 


$7F 


1FM7 85 


51 


CLER 


STA 


EXP 


1FM9 18 






CLC 




1F1A A5 


2H 




LDA 


QU 


1F1C 65 


28 




ADC 


ZE 


1F1E 70 


05 




BVS 


OVRF 


1F50 38 






SEC 




1F51 E5 


27 




SBC 


WY 


1F53 50 


02 




BVC 


OKEY 



BEGIN PLOTTING ROUTINE 

TRANSFER VALUES FOR X% 
t%, Z% AND P$, Qi, 
Ri TO EX, WY, ZE, 
AND PE, QU, AR, 
RESPECTIVELY. REDUCE 
VALUES FROM TWO 
BYTES TO ONE 



CHECK FOR END OF TRANSFER 
COMPUTE EXP = PE + EX 



CHECK AR, IF ODD 90 DEGREE 
PLOT, IF EVEN 15 DEGREES. 
IF 45, ADD AR TO EXP 

SET TO 7F ON OVERFLOW 



COMPUTE WYP = WY + QU 



16:6 



MICRO — The 6502 Journal 



September, 1979 



hidden line problem will be simplified 
greatly. In fact, it becomes only a matter 
of printing the value of Y for each (X,Z) 
and eliminating all previously plotted 
lower values of Y. The plotting routine 
accomplishes this process by simply 
erasing all points below the currently 
plotted point. 

Besides having to plot all points in in- 
creasing order of Z, the procedure re- 
quires that, for a given value of Z, an 
(X,Y) be computed for each feasible 
value of X. Otherwise gaps in the plot 
might leave non-visible points unerased. 
This process can be imagined as cutting 
the figure into slices parallel to the XY 
plane and then stacking the slices up in 
Z value order to reconstitute the figure. 

If the hidden line function is not 
wanted, it can be turned off with the 
statement "POKE 8181,96". This will 
cause the routine to plot a point at X%, 
Y%, Z% without erasing lower points. 
Of course if Z% is held constant at zero, 
the routine is equivalent to a two dimen- 
sional plotting function. 



lfy]i$%F* in ™>™ 5 " 



VS--VP 

XL«INT(.5+SQR<XP»XP-ZT*ZT)> 

e"5R XI--XL TO XL 

XT-SOR<XI»XI+ZT*?T) 

XT«XT*XF 

XV.=X I 

VT=SIN(XT)»VF 

IF VS<VT GOTO 364 

V1=VT Y2 = YS 

GOTO 370 

Yi = VS : V2 = VT 

FOR VI=V2 TO VI STEP -1 

V/.= YI .SYS (7944) 

NEXT YI 

YS = YT 

NEXT XI 

NEXT ZI 

GET G* IF G*-"" GOTO 578 




Figure 3: The problem has been 
drawing a line between plot 
eliminating the gaps. 
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F55 A9 

F57 85 

F59 A9 

F5B 85 

F5D 85 

F5F 85 

F61 A5 

F63 85 

iF65 30 

F67 C9 

F69 90 

:F6B 60 

1F6C A5 

F6E 85 

F7G 30 

F72 C9 

F71 BO 

F76 1*6 

F78 90 

1F7A E6 

1F7C 16 

1F7E. 90 

1F80 E6 

1F82 E6 

1F81 A9 

1F86 Al 

1F88 F0 

1F8A 0A 

1F8B C6 

1F8D 1C 

1F90 85 

1F92 06 

1F91 06 

1F96 06 

1F98 A5 

1F9A 06 

^F9C 26 

1F9E 06 

1FA0 26 

1FA2 65 

1FA1 85 

1FA6 A5 

1FA8 69 

1FAA 85 

1FAC A5 

1FAE 65 

1FB0 85 

1FB2 90 

1FB1 E6 

1FB6 18 

1FB7 A9 

1FB9 65 

1FBB 85 

1FBD A0 

1FBF A2 

1FC1 A1 

1FC3 88 

1FC1 D9 

1FC7 F0 

1FC9 CO 

1FCB DO 

1FCD A6 

1FCF F0 

1FD1 1|C 

1FD1 A5 

1FD6 F0 

1FD8 A5 

1FDA 19 

1FDC 85 

1FDE 98 

1FDF 25 

1FE1 1C 

1FE1 98 

1FE5 05 

1FE7 A8 



7F 
55 
00 
57 
53 
56 
51 
51 
01 
50 
01 

55 
52 
7B 
32 
F5 
51 
02 
56 
52 
01 
56 
56 
01 
56 
06 

56 

86 IF 

56 

52 

52 

52 

52 

52 

53 

52 

53 

52 

52 

53 

00 

53 

52 

51 

52 

02 

53 

80 
53 
53 
10 
00 
52 

B3 1E 

0B 

00 

F6 

25 

03 

ED 1F 

57 

0C 

56 

OF 

56 

56 

E7 IF 

56 



0VRF 
0KEY 



MAIN 



C0UT 
YCHK 



GOON 



XQUAD 



YQUAD 
R0ND 



ROUT 



PLUS 



AGIN 



N0VR 



SETR 
PLQT 



LDftIM 

STA 

LDAIM 

STA 

STA 

STA 

LDA 

STA 

BMI 

CMPIM 

BCC 

RTS 

LDA 

STA 

BMI 

CMPIM 

BCS 

LSR 

BCC 

INC 

LSR 

BCC 

INC 

INC 

LDAIM 

LDY 

BEQ 

ASLA 

DEC 

JMP 

STA 

ASL 

ASL 

ASL 

LDA 

ASL 

R0L 

ASL 

R0L 

ADC 

STA 

LDA 

ADCIM 

STA 

LDA 

ADC 

STA 

BCC 

INC 

CLC 

LDAIM 

ADC 

STA 

LDYIM 

LDXIM 

LDAIX 

DEY 

CMPY 

BEQ 

CPYIM 

BNE 

LDX 

BEQ 

JMP 

LDA 

BEQ 

LDA 

E0RIM 

STA 

TYA 

AND 

JMP 

TYA 

0RA 

TAY 



$7F 

WYP 

$00 

FLAG 

RHI 

CHAR 

EXP 

EXPP 

C0UT 

$50 

YCHK 

WYP 

WYPP 

RTRN 

$32 

C0UT 

EXPP 

XQUAD 

CHAR 

WYPP 

YQUAD 

CHAR 

CHAR 

$01 

CHAR 

ROUT 

CHAR 

ROND 

CHAR 

WYPP 

WYPP 

WYPP 

WYPP 

WYPP 

RHI 

WYPP 

RHI 

WYPP 

WYPP 

RHI 

$00 

RHI 

WYPP 

EXPP 

WYPP 

PLUS 

RHI 

$80 
RHI 
RHI 
$10 
$00 
WYPP 

TABLE 

NOVR 

$00 

AGIN 

AR 

NOVR 

RTRN 

FLAG 

SETR 

CHAR 

$0F 

CHAR 

CHAR 
PLOT 

CHAR 



SET TO 7F ON OVERFLOW 



SET FLAG FOR FIRST ITERATION 
BEGIN PLOT 



CHECK FOR EXP GREATER 
THAN ZERO, LESS THAN 80 



CHECK FOR WYP GREATER 
THAN ZERO, LESS THAN 50 

DIVIDE EXP AND WYP BY 2 
COMPUTE QUADRANT OF 
PLOT POINT WITHIN THE 
SCREEN POSITION 



SET BIT IN CHAR CORRESPONDING 

TO QUADRANT 
OF PLOT POINT 



TRANSLATE RELATIVE COORD 
OF PLOT POINT TO 
SCREEN LOCATION FOR 
POINT. X + 10 » Y 



FIND CHARACTER ALREADY 
AT SCREEN LOCATION 



IF CHARACTER NOT IN TABLE, 
CHECK AR FOR OVERWRITE 
INDICATOR (2ND BIT) 
FIRST ITERATION? 

IF NOT fIRST ITERATION, 
BLANK OUT CHARACTER ON SCREEN 



IF FIRST ITERATION, 
PRINT NEW CHARACTER 
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1PE8 
1FEB 
1FED 
1FEF 
IFF) 
1FF3 
1FF5 
1EB3 
1EB3 
1EB4 
1EB5 
1EB6 
1EB7 
1EB8 
1EB9 
1EBA 
tEBB 
>6BC 
1EBD 
1EBE 
1EBF 
1EC0 
1EC1 
1EC2 
1EC3 
1EC5 
1EC7 
1EC9 
1ECB 
1ECC 
1ECE 
1ED0 
1ED1 
1ED3 
1ED5 
1ED7 
1ED9 
1EDB 
1EDD 
1EDF 
1EE0 
1EE2 
1EE4 
1EE6 
1EE8 
1EEA 
1EEC 
1EED 
1EEE 
1EF0 
1EF1 
1EF3 
1EF5 
1EF7 
1EF9 
1EFB 
1EFD 
1EFF 
1F02 
1F04 
1F07 



B9 B3 1E 
81 52 
A9 FF 
85 57 
E6 55 
A9 00 
4C 5D IF 

20 

7E 

7C 

EC 

7B 

61 

FF 

EC 

6C 

?F 

E1 

FB 

62 

FC 

FE 

A0 

A9 CF 

85 25 

AO 01 

84 24 

88 

84 23 
E6 25 
18 

26 24 
B1 7C 
C5 25 
FO 06 
A5 24 
05 23 
35 23 
C8 

B1 7C 
C9 80 
FO 06 
A5 24 
05 23 

85 23 
98 

18 

69 06 
A8 

C9 2A 
FO OD 
C9 15 
DO D5 
A5 25 
69 04 
85 25 
4C CE 1E 
A5 23 
8D OC 02 
60 



RTRN 



TABLE 



LDAY 

STAIX 

LDAIM 

STA 

INC 

LDAIM 

JMP 

ORG 



IFACE 



INIT 



CHEK 



RPET 



END 



LDAIM 

STA 

LDYIM 

STY 

DEY 

STY 

INC 

CLC 

ROL 

LDAIY 

CMP 

BEQ 

LDA 

ORA 

STA 

INY 

LDAIY 

CMPIM 

BEQ 

LDA 

ORA 

STA 

TYA 

CLC 

ADCIM 

TAY 

CMPIM 

BEQ 

CMPIM 

BNE 

LDA 

ADCIM 

STA 

JMP 

LDA 

STA 

RTS 



TABLE 

WYPP 

$FF 

FLAG 

HYP 

$00 

MAIN 

$1EB3 

$20 

$7E 

$7C 

$EC 

$7B 

$61 

$FF 

$EC 

$6C 

$7F 

$E1 

$FB 

$62 

$FC 

$FE 

$A0 

$CF 

VARY 

$01 

VFLAG 

STAT 
VARY 

VFLAG 

$7C 

VARY 

CHEK 

VFLAG 

STAT 

STAT 

$7C 

$80 

RPET 

VFLAG 

STAT 

STAT 



$06 

$2A 

END 

$15 

INIT 

VARY 

$04 

VARY 

INIT 

STAT 

$020C 



SET FLAG TO NEXT ITERATION 
INCREMENT POINT FOR ERASKG 
AREA BELOW POINT 



BEGIN VERIFICATION BOUTIN 



LOAD CONTENT OF WORKING 
STORAGE AREA 



COMPARE VARIABLE NAME 
FIRST CHARACTER 
IF CHARACTER INCORRECT 
UPDATE STAT 



SECOND CHARACTER 

IF CHARACTER INCORRECT 
UPDATE STAT 



MORE TO NEXT VARIABLE 



CHECK FOR END OF LOOP 
BEGIN ROUTINE TO SKIP 
FROM RJ TO X* 



STORE STAT IN STATUS 



SYMBOL 

AGIN 

CHEK 

EX 

GOON 

MAIN 

OKEY 

PLUS 

ROND 

SETR 

TMCH 

WYPP 

YQOAD 



TABLE 

1FC3 

1EDF 

0026 

1F76 

1F5D 

1F57 

1FB6 

1F86 

1FE4 

1F27 

0052 

1F84 



2000 21 
AR 

CLER 
EXPP 
IFACE 
NEGI 
OVRF 
POSI 
ROUT 
STAT 
VARY 
WYP 
ZE 



14 



0025 
1F47 
0051 
1EC3 
1F1A 
1F55 
1F20 
1F90 
0023 
0025 
0055 
0028 



BITR 

COUT 

EXP 

INIT 

NOVR 

PE 

QU 

RPET 

STOR 

VFLAG 

XQUAD 



1F15 
1F6B 
0054 
1ECE 
1FD4 
0023 
0024 
1EEC 
1F2A 
0024 
1F7C 



CHAR 

END 

FLAG 

LOOP 

OFLO 

PLOT 

RHI 

RTRN 

TABLE 

WY 

YCHK 



0056 
1F02 
0057 
1F0C 
1F45 
1FE7 
0053 
1FED 
1EB3 
0027 
1F6C 



The routine is written to reside in the 
upper portion of 8K RAM. Under most 
circumstances, this area is not used un- 
til the BASIC program employing the 
routine gets too large. If the BASIC pro- 
gram requires certain string manipula- 
tions, however, PET may use high RAM 
for string working area and clobber the 
plotting routine. For example, the se- 
quence A$ = "123" : B% = "456": 
C$ = A% + B$ will cause C$ to be 
stored in high RAM and destroy the plot- 
ting routine. 

The routine is designed to be saved 
using the PET Machine Language 
Monitor. The routine is first entered in 
memory using the monitor and then sav- 
ed with "S,01,PLOTTER,1EB3,1FF8". 
One* saved, the routine can be loaded 
as would any other program, with LOAD 
"PLOTTER". The BASIC program using 
the routine can then be loaded in the 
normal manner. U 




PV.-42 QV."3 



PR IN 



XR/XP: VF-VP/VR 



FOR ZI— Q% TO (49-QX) 

ZT-iifc&F 21>2p G0T0 56e 

zv.=z: 

VS = 1 

XL=INT( . 5+SQR(XP*XP-ZT«ZT>) 

FOR XI=-XL TO XL 

XT = SQR(X I*XI+ZT*ZT> 

XT=XT»XF 

X% = XI 

VT=15*EXP(-XT/3)»VF 

IF VS<VT GOTO 364 

V1=VT . V2«VS 

GOTO 370 

Vl-VS V2-VT 



Figure 4: The solid formed by rotating Y = 15 exp 
(-X/3) about the Yax/s. 
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- p-x-42 OxjlZ "5"* 

xV.-e v-^-e 2x-e 

VR»i 5 VP"17 

ZF-XR/ZP :XF-XR/XP : VF-VP/VR 

PRINT "L" _. ..... 



110 IF ZK-ZP OR ZI>2P GOTO 368 
138 ZT=ZI*XP/ZP 

149 Z'/.=ZI 

150 VS =— VP 

289 XL=!NT<.5+SQR<XP»XP-ZT»ZT>> 
219 FOP XI=-XL TO XL 
229 XT=SOP(XI»XI+ZT«ZT> 



Sad VT= .5*C0S<3«XT)+C0S<XT))»VF 
350 IF VS<VT GOTO 364 
369 V1=VT:V2«VS 
362 GOTO 378 ,, 



Figure 5: The solid formed by rotating Y 
(3X) + cos(X) about the Y axis. 



1/2 cos 



BASIC Interface 

Since the assembly language routine 
requires that the six parameters be pass- 
ed from BASIC, the USR function with its 
single parameter argument cannot be 
used. POKE will not work, either, be- 
cause it will not accept negative values. 
The method I used to overcome this pro- 
blem was to have the assembly langu- 
age routine access the BASIC working 
area to obtain the required parameters. 

After the run command is given, PET 
BASIC takes each variable in the order it 
is encountered and creates a working 
storage area for it following the last 
BASIC statement. For non-subscripted 
variables the working storage is seven 
bytes long. The first two bytes are the 
variable name and the next five are the 
current value. 



Floating point variables are stored in 
normalized form, while integer variables 
are stored as two-byte signed numbers. 
The address of the starting byte of the 
variable storage area is stored in loca- 
tion $7C. For simplicity, the plotting 
routine assumes that the six required 
parameters— P%, Q%, R%, X%, Y%, 
and Z%— are the first six variables in 
the program and are in that order. 

To insure that all the required 
variables are in the proper place and in 
the proper sequence, the assembly 
language progradn includes a verifica- 
tion routine starting at location $1EC3. 
This routine is called with the statement 
"SYS (7875)" and checks for the 
presence and correct sequence of each 
parameter. The results of the checks are 
stored in the PET status word at location 
$020C. 



If the value of the status word, ST, is 
zero, all variables were located. If one of 
the variables is not located, the cor- 
responding bit of ST will be set. For ex- 
ample, ST = 6 would mean bits 1 and 2 
are set and thus that P% and Q% were 
not found. Bit zero is not used. A typical 
sequence to establish and verify the 
BASIC routine would be: 

The important point is that the six 
plotting variables must be the first six 
variables mentioned in the program, and 
they must be in the required sequence. 
Normally, the verification routine will on- 
ly be used for diagnostic purposes. The 
plotting routine itself is entered with the 
statement "SYS (7944)". 

BASIC Programs 

The plotting routine described above 
can be used for any three dimensional 
plot that satisfies the requirements of 
being single valued in Y and having only 
the upper surface visible. For example, 
Figure 1 is a graph showing the effects 
of combining two sine waves of different 
frquencies. The difference in frequency 
is a function of Z; Y is amplitude and X is 
time. 

Figure 2 is a solid of revolution formed 
by rotating a sine wave about the Y axis. 
The program is written a generalized for- 
mat, and any function can be used in 
line 300 as the function generating the 
solid. 

The scale and perspective of the 
figure are determined in lines 30 thru 50. 
XR is the actual maximum value that X 
can take, while -XR is the minimum. XP 
is the number of plot points that the 
distance XR will cover. For Figure 2, the 
X value runs from - 1.5 pi to 1.5 pi and is 
plotted from -35 to 35. Changing XP 
changes the width of the plotted figure. 

Similarly, the actual range of Y is YR, 
and YP is the plotted range of Y. Chang- 
ing YP changes the heighth of the plot- 
ted figure. The XZ cross section of the 
figure is circular so the actual range of Z 
is the same as X - XR. However, the 
plotted range of Z - ZP depends upon 
perspective. 

The larger ZP, the greater the ap- 
parent depth of the figure and the higher 
the apparent position of the viewer. The 
value YS in line 150 represents the 
lowest plotted value of Y or the base of 
the figure. 

A potential problem with the program 
is that while each point in the X direction 
is plotted, not every point in the Y direc- 
tion is. Thus for Z = 0, two consecutive 
plot points might be (Xi = 3, Y-| = 12) 
and (X2 = 4, Y 2 = 9). While X-| and X 2 
are adjacent, Y-| and Y 2 are not. The pro- 
blem of such gaps is esthetically more 
severe with some figures than others. 
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In Figure 3, the problem has been cor- 
ected by drawing a line between plot 
points and eliminating the gaps. The 
program for Figure 3 is the same as for 
Figure 2 except that the section between 
lines 300 and 400 has been modified. 

Figure 4 is a plot of the solid formed 
by revolving Y = 15e _x '3 about the Y 
axis. The program is the same as for 
Figure 3 except that line 300 contains 
the new function, line 150 is changed, 
and lines 10-50 contain the new center 
and scaling factors. Figure 5 is the solid 
of revolution of Y = Vzcos(3x) + cos(x) 
about the Y axis. The program is the 
same as that of Figures 3 and 4 except 
for lines 10-50, 150, and 300. 

The process of rotating the plane 
figure to obtain a solid of revolution is il- 
lustrated in Figures 5 and 6. As describ- 
ed before, the plot for a given value of Z 
is equivalent to a vertical slice through 
the solid parallel to the X axis. Figures 5 
and 6 represent views of a solid form 
above and the dotted line is the path of a 
vertical slice. 

The maximum radius of the solid is 
XT. The apparent distance of a point on 
the circle from the circle's center (view- 



— XI 




Figure 7: 

the 

value. 



View of a solid form above illustrating 
problem of computing the Y value for each X 



XL = vxp 2 _ZT^ 




Figure 6: View of a solid from-above. The do\tted 
line is the path of a vertical slice. 
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ed straight on) is XL. XL is computed in 
line 200 of the programs for Figures 2 
through 5. 

The next step is to find the Y value for 
each point on the dotted line between 
-XL and XL. The FOR loop in line 210 in- 
sures that each possible X value is used. 
The process of computing the Y value 
for each X value is largely the reverse of 
the process described above and is il- 
lustrated in Figure 6. 

Viewed from the top, the contours of 
the solid form concentric circles. That is, 
the Y value of every point at a given 
distance from the center is the same. 
For a point along the dotted line at an 
apparent distance XI from the center, 
the Y value will be the same as for a 
point where the inner circle crosses the 
Z = line. 

The distance of either point from the 
center is the square root of 
(XI 2 + ZT 2 )-The calculation is perform- 
ed in line 220 and the resultant distance 
is used to compute the Y value in line 
300. The plotting function is called in 
line 380 and uses whatever values of 
X%, Y% and Z% are then current. 
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An AIM-65 Notepad 



A few short assembly language routines 

notepad and provide the basis for versatile 

AIM-65 display. These techniques overcome a variety of 

common output difficulties. 



implement a 
output to the 



Dr. Marvin L. De Jong 

Department of Mathematics and Physics 

The School of the Ozarks 

Point Lookout, MO 65726 



Do you want to learn how to use the 
20-character AIM 65 display? This short 
article describes several assembly 
language subroutines that may be used 
to display input/output information. The 
entire program functions as a novel 
"notepad" that may be used to leave a 
message for someone else or for your- 
self. However, its primary utility will lie 
in the applications that you design 
which use the AIM 65 display. The pro- 
gram listing is given, and its description 
follows. 

We will begin by describing some of 
the features of the notepad program, 
and then return to a description of some 
of the subroutines that you might want 
to duplicate in your assembly language 
programs. The notepad program allows 
the operator to enter a message contain- 
ing from one to 256 ASCII characters (in- 
cluding spaces) into locations $0200 to 
$02FF of the AIM 65's memory space. 

While entering the message, the 
characters typed on the keyboard are 
displayed on the 20-character display. 
The message enters the right-hand side 
of the display, and it is scrolled to the 
left. If an error is made, the DEL key 
allows the entire message to be back- 
spaced, and a new character or set of 
characters may be entered. 

Once the desired message is entered, 
the RETURN key starts the message cir- 
culating from right to left on the display. 
It circulates at a rate that makes it easy 
to read. If more than one space (ASCII 
value = $20) is encountered, the space 
is not displayed. Thus, a message that 
contains less than 256 characters does 
not take a noticeable amount of time to 
display "empty" locations. 

You can leave a message to yourself 
such as "CALL SAM TONIGHT", or you 
can remind your wife to "BE SURE TO 
LET ROVER OUT WHEN YOU GET 
HOME." Of course there are much less 
expensive ways to do this than by pur- 
chasing AIM 65, and it is doubtful 
whether this notepad program will pro- 
vide sufficient justification to convince 
your spouse that you ought to have a 
computer. The program is more of a 
novelty that might be useful as an adver- 



tising gimmick, it 
65s, or to impress 



hand, 



On the other 
could be useful in 
grams. I use seveital 
in my Morse code 
65 (available from 
subroutines might 
assisted instruction 
quire interaction 
the operator. Or 
testing reading 
speed in certain 
perception and cod 



you are selling AIM 
your friends. 



the subroutines 
a large variety of pro- 
of the subroutines 
program for the AIM 
me for $3.50). The 
be useful in computer 
programs that re- 
the computer with 
might be useful in 
and comprehension 
psychological tests of 
nition. 



of 
they i 



The read/write |(RAM) memory loca- 
tions from $A43JI to $A43B, memory 
locations which are available on an off- 
the-shelf AIM 65, are used to store the 
ASCII characters to be displayed. We 
call these locations the display buffer. 
These 20 location 3 are filled with ASCII 
spaces by the subroutine CLEAR star- 
ting at address $03A0. Subroutine DIS- 
PLAY, starting at address $0360, 
transfers the ASCII characters in the 
display buffer to Ihe AIM 65 display. It 
does this by making use of a subroutine 
in the AIM 65 monitor called OUTDD1 tht 
is located at $EF^B. 

Subroutine OUTDD1 in the AIM 65 
ROM is very usef Jl in working with the 
20-character display. The content of the 
X register addresses the display in the 
sense that X = $00 is the leftmost 
character on the display, and X = $13 
(19) is the right-rrpost character on the 
display. 



The accumulator, A, must contain the 
ASCII representation of the character to 
be displayed belore the jump to the 
OUTDD1 subrout ne is made. The ac- 
cumulator must also be ORAed with $80 
before the subroutine call, or the cursor 
will be displayed. With the accumulator 
properly loaded and the appropriate "ad- 
dress' in the X register, a subroutine 
jump to OUTDpl will display the 
character. 

A jump to subroutine CLEAR, at 
$03A0, followed by a jump to subroutine 
DISPLAY will clear the display. To put 
some information in the display and 
scroll it to the left, subroutine MODIFY 
(starting at address $0372) is used. 



Subroutine MODIFY stores the contents 
of the accumulator in location $A44C. 
Then it proceeds to shift the contents of 
SA439 to SA438, SA43A to SA439, and so 
on until it finishes by shifting the con- 
tents of location $A44C to $A44B. 

Once the display buffer is properly 
modified by subroutine MODIFY, then a 
subroutine call to DISPLAY will cause 
the down-shifted ASCII characters in the 
display buffer to appear as left-shifted 
characters on the AIM 65 display. 

The sequence of events, starting at 
the beginning of the main program, is as 
follows: First, the display buffer is 
cleared by subroutine CLEAR. The 
message buffer from $0200 to S02FF is 
cleared (loaded with ASCII spaces). 

Next, an AIM 65 monitor subroutine, 
READ, is called to get a character from 
the keyboard. As long as no key is 
depressed, the monitor stays in this 
subroutine. A key depression results in a 
return to the main program with the 
ASCII representation of the character in 
the accumulator. The contents of the ac- 
cumulator are transferred to the 
message buffer, using Y as an index for 
the buffer's base address of $0200, 
unless it is the ASCII character for RE- 
TURN, DEL, or the F1 key. 

The F1 key starts the entire program 
over. The DEL key removes the last 
character from the message buffer, and 
it backspaces (scrolls right) the display 
buffer and the display itself. The RE- 
TURN key starts the message, and this 
key should be pressed only when the 
desired message has been placed in the 
message buffer. 

If a character is placed in the 
message buffer, then it is also displayed 
by calling subroutines MODIFY and DIS- 
PLAY in succession. If the message buf- 
fer is filled, or if the RETURN key is 
pressed, then the program will proceed 
to scroll the entire message across the 
display. 

The message is displayed by getting 
characters from the message buffer, 
starting with location $0200, and then 
calling subroutines MODIFY and DIS- 
PLAY in succession. A time delay is in- 
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0010 






0520 


0362 8A 


TXA 


0020 


* MAIN PROGRAM 


0530 


0363 48 


PHA 


0030 






0540 


0364 BD 38 A4 


LDAX $A438 


0040 


0300 ORG 


$0300 


0550 


0367 09 80 


ORAIM $80 


0050 


0300 20 AO 03 JSR 


$03A0 


0560 


: 0369 20 7B EF 


JSR $EF7B 


0060 


0303 AO 00 LDYIM 


$00 


0570 


: 036C 68 


PLA 


0070 


0305 84 00 STY 


$00 


0580 


: 036D AA 


TAX 


0080 


0307 A9 20 LDAIM 


$20 


0590 


: 036E CA 


DEX 


0090 


0309 99 00 02 STAY 


$0200 


0600 


: 036F 10 F1 


BPL $0362 


0100 


030C C8 INY 




0610 


• 0371 60 


RTS 


0110 


030D DO FA BNE 


$0309 


0620 






0120 


030F 20 3C E9 JSR 


$E93C 


0630 




* MODIFY SUBROUTINE 


0130 


0312 C9 OD CMPIM 


$0D 


0640 






0140 


0314 FO 1C BEQ 


$0332 


0650 


0372 8D 4C A4 


STA $A44C 


0150 


0316 C9 5B CMPIM 


$5B 


0660 


0375 A2 01 


LDXIM $01 


0160 


0318 FO E6 BEQ 


$0300 


0670 


0377 BD 38 A4 


LDAX $A438 


0170 


031 A C9 7-F CMPIM 


$7F 


0680 


037A CA 


DEX 


0180 


03 1C DO 06 BNE 


$0324 


0690 


037B 9D 38 A4 


STAX $A438 


0190 


031E A9 20 LDAIM 


$20 


0700 


037E E8 


I NX 


0200 


0320 88 DEY 




0710 


037F E8 


INX 


0210 


0321 20 85 03 JSR 


$0385 


0720 


0380 EO 55 


CPXIM $15 


0220 


0324 99 00 02 STAY 


$0200 


0730: 


0382 90 F3 


BCC $0377 


0230 


0327 BO E6 BCS 


$030F 


0740: 


0384 60 


RTS 


0240 


0329 20 72 03 JSR 


$0372 


0750. 






0250 


032C 20 60 03 JSR 


$0360 


0760: 




* BACKSPACE SUBR 


0260 


032F C8 INY 




0770: 






0270 


0330 DO DD BNE 


$030F 


0780: 


0385 A2 12 


LDXIM $12 


0280 


0332 AO 00 LDYIM 


$00 


0790: 


0387 BD 38 A4 


LDAX $A438 


0290 


0334 B9 00 02 LDAY 


$0200 


0800: 


038A E8 


INX 


0300 


0337 C9 20 CMPIM 


$20 


0810: 


038B 9D 38 A4 


STAX $A438 


0310 


0339 DO 08 BNE 


$0343 


0820: 


038E CA 


DEX 


0320 


033B A5 00 LDA 


$00 


0830: 


038F CA 


DEX 


0330 


033D DO 1B BNE 


$035A 


0840: 


0390 10 F5 


BPL $0387 


0340 


033F E6 00 INC 


$00 


0850: 


0392 98 


TYA 


0350 


0341 DO 07 BNE 


$034A 


0860: 


0393 E9 14 


SBCIM $14 


0360 


0343 A9 00 LDAIM 


$00 


0870: 


0395 AA 


TAX 


0370 


0345 85 00 STA 


$00 


0880: 


0396 BD 00 02 


LDAX $0200 


0380 


0347 B9 00 02 LDAY 


$0200 


0890: 


0399 8D 38 A4 


STA $A438 


0390 


034A 20 72 03 JSR 


$0372 


0900: 


039C 20 60 03 


JSR $0360 


0400 


034D 20 60 03 JSR 


$0360 


0910: 


039F 60 


RTS 


0410 


0350 A9 FF LDAIM $FF 


0920: 






0420 


0352 8D 97 A4 STA 


$A497 


0930: 




* CLEAR SUBROUTINE 


0430 


0355 2C 97 A4 EIT 


$A497 


0940: 






0440 


0358 10 FB BPL 


$0355 


0950: 


03A0 A2 13 


LDXIM $13 


0450 


035A C8 INY 




0960: 


03A2 A9 20 


LDAIM $20 


0460 


035B 18 CLC 




0970: 


03A4 9D 38 A4 


STAX $A438 


0470 


035C 90 D6 BCC 


$0334 


0980: 


03A7 CA 


DEX 


0480 






0990: 


03A8 10 FA 


BPL $03A4 


0490 


* DISPLAY SUBROUTINE 


1000: 


03AA 60 


RTS 


0500 






ID= 






0501 


0360 ORG 


$0360 








0510 


0360 A2 13 LDXIM 


$13 
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serted ($FF is loated into the divide- 
by-1024 counter on the 6532 chip) unless 
more than one space occurs in succes- 
sion. In that case, the subroutines and 
the time delay are not used at all, and 
the program keeps searching through 
the message buffer until it finds another 
non-space ASCII character, in which 
case subroutines MODIFY and DISPLAY 
are called again. 

One subroutine that remains to be 
mentioned is BACKSPACE used by the 
DEL key. It starts at $0385 and its effect 
is to backspace the display buffer, 
replacing the leftmost character with 
the appropriate character from the 
message buffer. It then calls subroutine 
DISPLAY to show the typist that the 
character has, in fact, been deleted and 
the entire message has been backspac- 
ed. 

Again, I think the subroutines 
MODIFY, DISPLAY, CLEAR, READ, and 
OUTDD1 will be of considerable use if 
you are writing programs that use the 
keyboard or the display on the AIM 65. 
All of them are quite short, and a little 
study will show how they work. Most in- 
volve only simple loops and nothing 
more complicated than indexed ad- 
dressing. Mimic or echo your display on 
your computer storefront and you will 
have something that will really catch the 
eye, but don't ask me where to get the 
appropriate neon sign elements. 

A summary of the subroutines 
follows: 



DISPLAY 



MODIFY 



CLEAR 



BACKSPACE 



Takes the contents of 
locations SAS438 to 
$A44B and transfers 
them to the AIM 65 
display. A is modified, 
and X = on return. 

Successively shifts the 
contents of locations 
$A439 to $A44C to loca- 
tions in memory whose 
addresses are one less. 
The contents of the ac- 
cumulator, when the 
subroutine is called, will 
be stored in location 
$A438. A and X are modi- 
fied. 

Loads $20 in the display 
buffer, locations $A438 
to $A44B. A and X are 
modified. 

Reverses the effects 
found in MODIFY and, in 
addition, loads location 
$A438 with the contents 
of the message buffer in 
$0200 + (Y - $13). Y 
points to the last entry 
made in the message 
buffer. X and A are 
modified. 
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and to help new APPLE users use 
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AIM 65 



^Y ROCKV/ELL INTERNATIONAL 




AIM 65 is fully assembled, tested and warranted. With the 
addition of a low cost, readily available power supply, it's 
ready to start working for you. 

AIM 65 features on-board thermal printer and 
alphanumeric display, and a terminal-style keyboard. It 
has an addressing capability up to 65K bytes, and comers 
with a user-dedicated 1K or4K RAM. Two installed 4K 
ROMS hold a powerful Advanced Interface Monitor 
program, and three spare sockets are included to expanjd 
on-board ROM or PROM up to 20K bytes. 

An Application Connector provides for attaching a TTY 
and one or two audio cassette recorders, and gives exter- 
nal access to the user-dedicated general purpose I/O lines. 

Also included as standard are a comprehensive AIM 65 
User's Manual, a handy pocket reference card, an R6500 
Hardware Manual, an R6500 Programming Manual and ^n 
AIM 65 schematic. 

AIM 65 is packaged on two compact modules. The 
circuit module is 12 inches wide and 10 inches long, the; 
keyboard module is 12 inches wide and 4 inches long. 
They are connected by a detachable cable. 

THERMAL PRINTER 

Most desired feature on low-cost microcomputer systems , . . 

• Wide 20-column printout 

• Versatile 5x7 dot matrix format 

• Complete 64-character ASCII alphanumeric format 

• Fast 120 lines per minute 

• Quite thermal operation 

• Proven reliability 

FULL-SIZE ALPHANUMERIC KEYBOARD 

Provides compatibility with system terminals . . . 

• Standard 54 key, terminal-style layout 

• 26 alphabetic characters 

• 10 numeric characters 

• 22 special characters 

• 9 control functions 

• 3 user-defined functions 

TRUE ALPHANUMERIC DISPLAY 

Provides legible and lengthy display . . . 

• 20 characters wide 

• 16-segment characters 

• High contrast monolithic characters 

• Complete 64-character ASCII alphanumeric format 



PROVEN R6500 MICROCOMPUTER SYSTEM DEVICES 

Reliable, high performance NMOS technology . . . 

• FI6502 Central Processing Unit (CPU), operating at 1 
MHz. Has 65K address capability, 13 addressing modes 
and true index capability. Simple but powerful 56 
instructions. 

• Fead/Write Memory, using R2114 Static RAM devices. 
Available in 1K byte and 4K byte versions. 

• 8K Monitor Program Memory, using R2332 Static ROM 
devices. Has sockets to accept additional 2332 ROM or 
2532 PROM devices, to expand on-board Program 
memory up to 20K bytes. 

• F6532 RAM-Input/Output-Timer (RIOT) combination 
device. Multipurpose circuit for AIM 65 Monitor functions. 

• Two R6522 Versatile Interface Adapter (VIA) devices, 
which support AIM 65 and user functions. Each VIA has 
two parallel and one serial 8-bit, bidirectional I/O ports, 
two 2-bit peripheral handshake control lines and two 
fully-programmable 16-bit interval timer/event counters, 

BUILT-IN EXPANSION CAPABILITY 

• 44-Pin Application Connector for peripheral add-ons 

• 44-Pin Expansion Connector has full system bus 

• Both connectors are KIM-1 compatible 

TTY AND AUDIO CASSETTE INTERFACES 

Staidard interface to low-cost peripherals . . . 

• 20 ma. current loop TTY interface 

• Interface for two audio cassette recorders 

• Two audio cassette formats: ASCII KIM-1 compatible 
aid binary, blocked file assembler compatible 

ROM RESIDENT ADVANCED INTERACTIVE MONITOR 

Advanced features found only on larger systems . . . 
Monitor-generated prompts 
S ngle keystroke commands 
Address independent data entry 
Debug aids 
E - ror messages 
Option and user interface linkage 

ADVANCED INTERACTIVE MONITOR COMMANDS 

Major Function Entry 
Instruction Entry and Disassembly 
Display/Alter Registers and Memory 
Manipulate Breakpoints 
CDntrol Instruction/Trace 
Cantrol Peripheral Devices 
Call User-Defined Functions 
Comprehensive Text Editor 

LOW COST PLUG-IN ROM OPTIONS 

4K Assembler— symbolic, two-pass 
8K BASIC Interpreter 

POV/ER SUPPLY SPECIFICATIONS 

+ 5 VDC ± 5% regulated @ 2.0 amps (max) 

+ 24 VDC ± 15% unregulated @ 2.5 amps (peak) 

0.5 amps average 

PRICE: $375.00 (ik ram) 

Plus $4.00 UPS (shipped in U.S. must give street address), 
$10 parcel post to APO's, FPO's, Alaska, Hawaii, Canada, 
$25 air mail to all other countries 

We manufacture a complete line of high quality expansion 
boaids. Use reader service card to be added to our mailing 
list, or U.S. residents send $1.00 (International send $3.00 
U.S.) for airmail delivery of our complete catalog. 




ENTERPRISES 

INCORPORATED 



2967 W. Fairmount Avenue 
Phoenix AZ. 85017 
(602|265-7564 
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Applesoft Renumbering 



Here is a fast and reliable utility for APPLE pro- 
grammers who do not have disks. It can be adapted 
to the PET and other Microsoft BASIC systems. 



J.D. Childress 
5108 Springlake Way 
Baltimore, MO 21212 



The need for a program written in Apple- 
soft to renumber Applesoft programs is 
moot now that APPLE has made avail- 
able the 3.2 version of its disk operating 
system, that is, if one has a disk system. 
I wrote the present renumbering pro- 
gram while my disk drive was out of ac- 
tion, before the release of the 3.2 ver- 
sion, and after reading Mr. Carpenter's 
program in MICRO 12:45 based in turn 
on a PET program by Jim Butterfield, 
MICRO 8:33. Since some people do not 
have disks and since Applesoft pro- 
grams can be adapted to the PET and 
other systems using Microsoft BASIC, 
my renumbering program still may find 
users. 

Comparison 

This Applesoft renumbering program 
(hereafter called RENUMB) is dreadfully 
slow; it took 7.9 minutes to renumber a 
8.5K program. Even at that, it's faster 
than Mr. Carpenter's program, which 
took 13.2 minutes to renumber the same 
8.5K program (and also had a problem 
with one THEN). In comparison, the 3.2 
disk renumber program did the job in 7.8 
seconds. 

Like Mr. Carpenter's program, RE- 
NUMB cannot change the line number 
after a GOTO, a GOSUB, or a THEN 
equivalent of a GOTO when the new line 
number has more digits than the old 
one. The program prints a list of these 
changes which must be made by hand, if 
there is not enough space, RENUMB in- 
serts only the least significant digits. 
For example, the line 

100 ON L GOTO 180, 190 

with a line number shift upwards by 1005 
would be given as 

1105 ON LGOTO 185, 195 



With the manual change instructions 
shown here: 

LINE 1105: INSERT 1185 AFTER GOTO. 

LINE 1105: INSERT 1195 AFTER COMMA. 

If there is more space than needed, 
RENUMB inserts leading zeros. (Note 
that the Applesoft interpreter preserves 
such leading zeros whereas the 3.2 disk 
renumber program does not.) 

RENUMB has one useful feature in 
common with the 3.2 disk renumber pro- 
gram, namely the capability of renum- 
bering only a specified portion of a pro- 
gram. This feature must be used with 
care since one can renumber a part of a 
program with line numbers equal to or in 
between some of the line numbers of the 
remaining part of the program. 

Unlike the 3.2 disk program, RE-NUMB 
does not order such lines into the proper 
sequence. If you really want that, you 
must run RENUMB first then use the 
screen/cursor editing controls to copy 
the out-of-sequence lines through the 
Applesoft interpreter. The reader is left 
with the nontrivial problem of getting rid 
of the still remaining out-of-sequence 
lines. 



Operation 

To use RENUMB, one needs to ap- 
pend RENUMB to the program to be re- 
numbered. The machine language AP- 
PEND program and procedure given by 
Mr. Carpenter are recommended. After 
the two programs are properly loaded, 
renumbering is accomplished by a RUN 
63000 command. Give the requested in- 
formation, then be patient; remember 
that RENUMB is numbingly slow. 



Copy carefully all the manual changes 
listed. If you want to see them again, you 
can do so by a GOTO 63360 command 
provided you have done nothing to clear 
the variables, i.e., have not given any 
RUN commands or changed any line of 
the program. 

You may use the SPEED command to 
slow up the display and the CTRL-C 
command to interrupt the display 
without clearing the variables. Once the 
variables have been cleared, there is 
nothing you can do except start from the 
beginning, that is, load the programs 
again. 

At the beginning of the program run, 
you are asked for a rough estimate of 
the number of program lines (numbered 
lines) to be renumbered. Be generous, 
within limits of available memory. If your 
estimate is too small, you will get a 

?BAD SUBSCRIPT ERROR IN 630X0 

where X = 6, 7, or 8 since your estimate 
is used for array dimensioning. Unless 
your program is especially rich in bran- 
ches, an estimate, say, about 50% 
greater than the number of line numbers 
will suffice. 

Program Design 

The design of RENUMB is quite sim- 
ple. First RENUMB searches the pro- 
gram being renumbered for line numbers 
(and their memory locations) and the line 
numbers (and memory locations) after 
GOTO's, GOSUB's, THEN's, and COM- 
MA'S in multiple branches. This search 
is done by lines 63040-63090 and for 
branches, the subroutine at 63250. Lines 
63130 and 63140 make the changes at 
the branches and line 63180 at the 
labels. The routine beginning at 63350 
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prints out those changes that must be 
made by hand. 

All else is bookkeeping. Note: In line 
63030, START is the address in memory 
of the beginning of the program. This is 
probably the only thing that needs to be 
changed for RENUMB to run on the PET 
(try START® 1025 per Butterfield) and 
possibly on other systems using Micro- 
soft BASIC. Finally, if you write very 
GOTOy and GOSUBy programs, you may 
want to change the definition of DD in 
line 63030. 

Applesoft 

Butterfield gives considerable infor- 
mation about the insight into the struc- 
ture of Microsoft BASIC. What is even 
handier is your own APPLE II. Let it be 
your textbook and teacher. For example, 
starting fresh with Applesoft in the com- 
puter, enter 



1 PRINT: GOTO 521 

521 PRINT "FREE": lilST 521 



While this little 
error, that is not 
enter anything you war^t 
plesoft handles it 



progrjam runs without 

necessary. You can 

to see how Ap- 



Now go to the monitor and look at 

801- 0C 08 01 00 ba: 
AB 35 32 31 00 

80C- 10 08 09 02 BA 22 46 52 45 45 22 
3A 
BC 35 32 31 00 



(1031 



810-00 00 

for ROM Applesoft 
plesoft). In the above 
here for clarify, 0C, 08 
final 00 00 point to the 
memory, the 00 00 pointer 
end of the program. 01 



for RAM Ap- 

ines, arranged 

10 08, and the 

instruction in 

labelling the 

30 and 09 02 are 



next 



the line numbers, 1 and 521 respectively. 
BA is the token for PRINT; 3A is the 
ASCII code for the colon; AB is the token 
for GOTO; 35 32 31 gives the line number 
for the GOTO; and 00 indicates the line 
ending. 22 46 52 45 45 22 is a direct ASCII 
code rendition of "FREE". Finally BC is 
the token for LIST and 35 32 31 is the line 
number 521 after LIST. 

Study of the above paragraph shows 
that Applesoft puts things into memory 
almost exactly the way you type them on 
the keyboard, except that the interpreter 
removes spaces, puts in instruction ad- 
dresses, translates its command words 
into tokens, and uses ASCII code and 
hexidecimal, low-order bit first notation. 

I think we can be confident that 
Microsoft has written most of their 
BASIC interpreters in as similar a 
fashion as possible. After all, why not 
exploit one's own good work. |U 



LISTING- 



-APPLES0FT RENUMBERING 
PROGRAM 



62999 END 

63000 HOME : VTAB (3): P»INT " 
RENUMBERING PPOGRAM": PRINT 

63010 PRINT "LIMES TO BE f. e NUMBE 
RED:": INPUT " BEG1MING LI 
NE — ";BGN: INPUT " ENDING 
LINE — ";T<?M: INPUT " T 0TAL 
NUMBER OF LIMES (R0UGHLY)-- 
";D: PRINT 

63020 INPUT "RENUMBEPED BEGIMNIN 
G LINE — ";SK: INPUT "INCEME 
NT — ";ADD 

63030 START » 256 * PEEK (10U) + 

PEEK (103):M = STAPT + 2 : DD 

= INT (D / U): DIM LS(D),L 

N(DD),LM(DD),L0C(DD),NA$(DD) 

,N0(DD), INS(DD), IMS(DD) 

630i»0 L - L + 1:LS(L) - M:LC » 25 
6 * PEEK (M + 1) + PEEK (V 
): IF LC > 62900 THEM 63100 

63050 FOR J » M + 2 TO M + 255:T 

ST * PEEK (J): IF TST » THEN 
M » J + 3: GOTO 6301*0 

63060 IF TST » 171 THEN NAS(K + 
1) » "GOTO": GOSUB 63250 

63070 IF TST - 176 THEN NA$(K + 
1) » "GOSUB": GOSUB 63250 

63080 IF TST « 196 AND PEEK (J + 
1) > l»7 AND PEEK (J + 1) < 
58 THEN NA$(K + 1) » "THEN": 
GOSUB 63250 

63090 NEXT 

63100 FOP J » 1 TO L:LNU =» 256 * 

°EEK (LS(J) ♦ 1) + °EEK (L 

S(J)): IF LMU > TPM OR LNU > 

62900 THEN PRINT : PRINT "R 

ENUMBERING COMPLETED THPOUGW 

LIME ";LUN;".": GP^O 63350 

63110 IF LNU < BGN THEN 631°0 

63120 SK* * "0000" + STR$ (SK):S 
K< - RIGHTS (SK«.,5) 



63130 FOR I » 1 TO K: IF LMU < > 
I NSC I ) THEN NEXT : GOTO 631 
8 

6311*0 FOR KA * 1 TO ND(I): P0*E 
L0C( I ) + 1 + ND( I ) - KA, V4L 
( MID*. (SK$,6 - KA,1)) ♦ Ii8: 
NEXT 

63150 IF LNU » INS(I) THEN I MS ( I 
) - SK 

63160 IF LEN ( STR*. (SK)) > ND( 
I ) THEN PCR = 1 

53170 NEXT 

63180 SO = INT (SK / 255): POKE 
(LS(J) + 1),S0: POKE (LS(J)) 
,SK - 256 * SO 

63190 FOR I - 1 TO K: IF LNU » L 
NO ) THEN LM( I ) » SK: IF LNU 
< BGN THEN LM( I ) = LNU 

63200 NEXT 

63210 SK » SK + ADD:LUN » LNU 

63220 NEXT 

63250 K = K + 1:LN(K) * LC:SU = PEEK 
(J + 1) - kS 

63260 FOR KA * J + 2 TO J + 6:CP 
R ■ PEEK (KA): I F CPR = OR 
CPR = 58 OR CPR » Ui» THEN GOT 
63290 

63270 SU » 10 * SU + CPR - U8 

63280 NEXT 

63290 LOC(K) • J:ND(K) * KA - 1 - 
J: INS(KT) « SU:J i KA - 1: IF 
CPR » kk THEN NA«.(K + 1) « " 
COMMA": J - KA: GOTO 63 25 

63300 RETURN 

63310 END 

63350 IF PCR < > 1 THEN END 

63360 PRINT : P" I NT "MOTE: YOU m 
UST MAKE THE FOLLOWING CHAN- 
": PRINT "GES MANUALLY:": PRINT 

63370 FOP I » 1 TO K: IF LEM ( ST°* 
(IMS(I))) < » ND(I) THEM NEXT 
: END 

63380 PPINT "LINE ";LM( I);": INS 

ERT ";IMS(I);" A^TER ";NA$(I 
\ . ii ii 

63390 'NEXT : END 



16:16 



MICRO — The 6502 Journal 



September, 1979 



MOVE IT: Relocating PET Source Programs 

and Object Code 



A useful program need not perform the entire task. If ten 
percent of the total coding effort achieves ninoty-nine 
percent of the desired result, perhaps manual interven- 
tion will be more efficient than additional programming. 



Professor Harvey B. Herman 

Department of Chemistry 

The University of North Carolina 

Greensboro, NC 27412 



MICRO readers probably know that 
when a PET program is saved on 
cassette tape it normally loads back into 
the same area of memory. Several times 
recently I wished that was not the case 
because I found the need to relocate in- 
formation already saved. 



on tape in anothe r PET can be loaded in- 
to an 8K machine at hex 400 if desired. 



For exampie, 
source code for 
later turned out 
area of memory, 
had no desire to 
program into 
memory region, 
said— and it did. 



I originally assigned 
an assembler to what 
to be an inconvenient 

Being naturally lazy, I 
retype the long source 
the newly assigned 
Let the PET move it, I 
This article tells how. 



Information one might wish to 
relocate falls into three categories. I 
have already mentioned ASCII source 
code which would require no modifica- 
tions after being moved. The next 
category also requires no extra work. 
BASIC programs which you might want 
to append, relocate, or relocate, do in- 
deed have address links which need to 
be modified. Fortunately for us the PET 
has routines which do this automatical- 
ly- 

Finally, machine language programs 
are not always located where they do the 
most good and it could become 
necessary to move them to more useful 
areas. In this case many changes pro- 
bably will be necessary. Instructions 
which use absolute addressing modes 
and indexed pointers are the principle 
culprits. Finding the necessary changes 
can be difficult without a source listing 
of the original program. 

The first method I considered to move 
programs (the first step in relocation) 
was a modified program from the First 
Book of KIM (MOVEIT, p. 127). I rejected 
this approach for a number of reasons, 
but mainly because I was convinced the 
PET had the routines already built in. An 
article by Jim Butterfield (bless his 
bones) in the PET User's Notes (Vol. 2, 
#1, p. 7) gave me the concept I needed to 
have the PET operating system help re- 
locate code already saved on tape. 

This method has the decided advant- 
age of not requiring the old memory 
locations to be present. A program 
originally located at hex 6000 and saved 



After placing the mach 
program in a new area of 
necessary to rhake vari 
changes. These modifica 
made with a machine langu 
See The First Boipk of KIM, 
example. Since l! feel more 
working in BASIC, I develc 
BASIC program to do mo 
dress modifications. 



ne language 
memory, it is 
dus address 
ions can be 
age program, 
p. 130, for an 
comfortable 
ped a simple 
st of the ad- 



The program i£ not perfect, so any re- 
maining changes^ or corrections need to 
be done with a monitor program. I 
deliberately used an easy-to-write 
(slightly flawed) program ir combination 
with manual correction, instead of spen- 
ding lots of timel writing an elegant pro- 
gram which did everything. I felt this ap- 
proach gave the best results because 
the total time t0 accomplish a task is 
what really counts. 

In summary, the relocsiting method 
discussed here aan be broken down into 
three essential steps: 

1. Loading the informetion on the 
cassette tape into the new area of 
memory. 

2. Running a BASIC program which 
makes most of ihe address 
changes. 

3. Manually correcting erors, using a 
monitor program, and making other 
necessary changes rrissed by the 
simple mindled BASIC program. 



As an example, ' nave | 
hope is a useful exercis 
Commodore's machine lar 
tor. It is important to h 
monitors which are locate 
areas of memory. When 
modify low areas of m 
necessary to u?e a mor 
memory, and vice versa. 



licked what I 
e: relocating 
iguage moni- 
ive available 
J in different 
we want to 
emory, it is 
litor in high 



Furthermore, the top of memory is 
consistently changing as PET owners 
add extra memory. It is a decided disad- 
vantage to be ituck witt only a low 
monitor, as supplied by Commodore. 
The latest PET's have a mcnitor in ROM, 



1EA8 A9 23 85 F9 20 5E 1_E 29 

1EB0 20 CF FF C9 2C F0 55 C9 

1EC0 0D F0 0B E0 10 FO F1 95 

1EC8 23 E6 EE E8 DO EA A5 20 

1ED0 C9 06 DO C8 A2 00 8E 0B 

1ED8 02 A5 F1 DO 03 4C 9B J_C 

1EE0 C9 03 B0 F9 20 67 F6 20 

1EE8 3B F8 20 FF F3 A5 EE F0 

1EF0 08 20 95 F4 DO 08 4C 9B 

1EF8 1C 20 AE F5 F0 F8 20 4D 



1DO0 
1D08 
ID 1 
ID 1 8 

1D20 
1D28 
1D30 
1D38 
1D40 
1D48 
1D50 
1D58 
1D60 
1D68 
1D70 
1D78 
1D80 
1D88 
1D90 
1D98 
1DA0 
1DA8 
1DB0 
1DB8 
1DC0 
1D.C8 
1DD0 
1DD8 
1DE0 
1DE8 
1DF0 
1DF8 



0A 60 3A 

4c 53 rnr 

|1E 1E| CI 

9E 9E 20 

52 20 41 

59 52 20 

06 20 F2 

37 11 A2 

D2 FF E8 

F2 1C A2 

1E 20 37 

J_C 20 

IE, 20 

J_E 20 

90 3D 20 

4A QJ 30 

DO F5 29 

2A F3 F0 

20 A3 1C 

A2 2E A9 

37 11 20 

BB 1C F0 

9B H 20 

90 03 20 

DO 0A 20 

90 E5 A9 

1E 20 CF 

20 CF FF 

20 DO CC 

20 B2 11 

48 A5 19 

1C A 6 1D 



E7 
90 
3F 



3B 
TT 



52 



TD 



4D 47 58 
1D 15 1D| 



B1 
50 
43 
53 
1C 
00 
E0 
2E 

11 
BB 
4F 
90 
3F 
06 
7F 
20 
90 
3A 
04 
DB 
5E 
B2 
5E 
08 
11 
C9 
20 
A6 
48 
A4 



1F0O 


F6 


20 


22 


F4 


1F08 


13 


F9 


AD 


0C 


IF 1 


E5 


4C 


57 


1C 


1 F 18 


1 1 


85 


F7 


A5 


1F20 


CF 


FF 


C9 


20 


1F28 


F0 


A4 


C9 


2C 


1F30 


1E 


20 


4F 


1E 


1F38 


A5 


12 


85 


E6 


1F40 


F0 


92 


A2 


00 


1F48 


57 


1C 


0D 


20 


1F50 


20 


20 


20 


20 


1F58 


31 


20 


20 


32 


1F60 


20 


34 


20 


20 


1F68 


20 


20 


B7 





2C 
43 
20 
50 
20 
BD 
13 
A9 
20 

11 
11 
11 
J_E 
20 
20 
A6 
17 
20 

11 
4C 
H 

1£ 

IE 
85 
DO 
0D 
4F 
1F 
A5 
1E 



5E D7 FD 

20 20 53 

58 52 20 

A5 0D DO 

37 IE 20 

1A FfD] 20 

DO F5 20 

3B 20 22 

08 IE 20 

F0 4D 20 

90 48 20 

20 4F H 

A0 00 B9 

D2 FF C8 

D2 FF 20 

0A DO 1C 
F2 1C 



20 
20 



20 

22 1 E 

A9 08 

57 11 4C 

20 4F 11 

20 E7 1_C 

20 4F 1_E 

21 20 90 
FS F0 D4 
F0 0C C9 
H 90 03 
9A A5 1A 
1B 48 A5 
40 A6 1F 



20 8A F8 20 

02 29 10 DO 

20 4F IE A5 

12 85 F8 20 

F0 F9 C9 0D 

F0 03 4C 9C 

A5 11 85 E5 

A5 20 C9 06 

20 B1 F6 4C 

20 20 20 20 

20 30 20 20 

20 20 33 20 

35 20 20 36 
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1C00 


00 


OD 


04 


OA 


00 


9E 


28 


31 


1C08 


30 


33 


39 


29 


00 


00 


00 


A9 


1C10 


27 


8D 


1B 


OA 


A9 


Qc] 


8D 


1C 


1C18 


02 


A9 


01 


85 


7D 


A9 


6B 


85 


1C20 


7C 


A9 


43 


85 


21 


DO 


12 


A9 


1C28 


42 


85 


21 


D8 


4A 


68 


85 


1E 


1C30 


68 


85 


13 


68 


85 


1C 


68 


85 


1C38 


1B 


68 


69 


FF 


85 


19 


68 


69 


1C40 


FF 


85 


1A 


BA 


86 


1F 


58 


20 


1C48 


F2 


JC 


A 5 


21 


A9 


2A 


20 


22 


1C50 


IE 


A9 


52 


85 


OD 


DO 


2B 


A9 


1C58 


00 


85 


CA 


85 


OD 


85 


OA 


20 


1C60 


F2 


IS. 


A9 


2E 


20 


D2 


FF 


A6 


1C68 


20 


EO 


02 


FO 


04 


EO 


03 


DO 


1C70 


06 


20 


3A 


IS. 


20 


37 


IS. 


20 


1C78 


90 


1E 


C9 


2E 


FO 


F9 


C9 


20 


1C80 


FO 


F5 


A2 


07 


DD 


02 


d 


DO 


1C88 


OF 


A5 


20 


85 


OE 


86 


20 


BD 


1C90 


OA 


m 


48 


BD 


12 


M 


48 


60 


1C98 


CA 


10 


E9 


A9 


3F 


20 


D2 


FF 


1CAO 


4C 


57 


1C 


38 


A5 


13 


E5 


1 1 


1CA8 


85 


OB 


A5 


14 


E5 


12 


A8 


05 


1CBO 


OB 


60 


A5 


1 1 


85 


19 


A5 


12 


1CB8 


85 


1A 


60 


85 


21 


AO 


00 


20 


1CCO 


3A 


11 


B1 


11 


20 


13 


IE 


20 


1CC8 


F7 


I£ 


C6 


21 


DO 


F1 


60 


20 


1CDO 


5E 


1E 


90 


OD 


A2 


00 


81 


1 1 


1CD8 


CI 


11 


FO 


05 


68 


68 


4C 


9B 


1CEO 


IS 


20 


F7 


IS. 


C6 


21 


60 


A9 


1CE8 


1B 


85 


11 


A9 


00 


85 


12. 


A9 


1CFO 


05 


60 


A9 


OD 


4C 


D2 


FF 


E6 


1CF8 


11 


DO 


06 


E6 


12 


DO 


02 


E6 



Location 



Object Code 



Source Code 
and Notes 



Original Modified Orig nal Modified 



0447 
0484 
0414 
0511 
073E 

NOTES 



1C47 20F204 

1C84 DD0205 

1C14 A90' 

1D11 06 

1 F3E C90e» 



20F21C JSRCRLF(1) 

DD021D CMPCMDS, X (2) 

A91C LDA# BRKE(3) 

1E .BYT ZZ8(4) 

C912 CMP #6 (5) 



5 REM MODIFY PROGRAM (FLAWED) 




6 REM 1K LOCATIONS 


"SEARCHED 




7 REM HARVEY B 


HERMAN 






8 N=0 












10 


FOR 1=0 


TO 


023 








15 


REM DEC 


7168 IS 


HEX 


1C00 




20 


L=7168+I 










30 


A=PEEK(L):B 


=PEEK(L+2) 




35 


REM DEC 


32 & 76 


ARE 


1EX 20 


(JSR) & 4C (JMP) 


36" REM PGS 


DEC/HEX 4,5 


6 & 7 


SEARCHED 


40 


IF A=32 


AND 


B=4 


THEN 


GOSUB 


1000 


50 


IF A=32 


AND 


B=5 


THEN 


GOSUB 


1000 


60 


IF A=32 


AND 


B=6 


THEN 


GOSUB 


1000 


70 


IF A=32 


AND 


B=7 


THEN 


GOSUB 


1000 


80 


IF A=76 


AND 


B=4 


THEN 


GOSUB 


1000 


90 


IF A=76 


AND 


B=5 


THEN 


GOSUB 


1000 


100 


IF A=76 


AND 


B = 6 


THEN 


GOSUB 


1000 


110 


IF A=76 


AND 


B=7 


THEN 


GOSUB 


1000 


120 


NEXT I 












125 


PRINT " 


JDCATIONS MODIFIED 


= ";N 


130 


STOP 












999 


REM MODIFIED TO 


DEC 


24 /HEX 


18 HIGHER 


1000 POKE L 


f2,B 


►24 








1005 N=N+1 












1010 RETURN 













(1) Absolute address identified and changed by BASIC MODIFY 
program. 

(2) Address not changed by BASIC program. Changed manually 
with the monitor. 

(3) High order byte of address of the break vector stored at $21 C 
must be changed. 

(4) Jump table value (address of command) has to be relocated. 

(5) Code which was erroneously changed because of preceeding 
hex 20. Changed back manually with the monitor. 

Typical Changes While Relocating Monitor Program 

but the general ideas presented here will 
still be useful to owners of those 
machines in other applications. 

The article by Jim Butterfield showed 
a procedure which loaded the tape into 
the screen memory area. I wanted to 
move the monitor program to the top of 
memory, 8K in my PET. This procedure is 
shown in Figure 1. Step 2 loads the tape 
header. I used the monitor program, in 
low memory, to modify the tape address 
from the header in steps 4 and 5. Moving 
the program on tape to the new area of 
memory occurs in step 7. After protec- 
ting the program, step 8, it is necessary 
to make address modifications before 
the program can be run successfully. 

Most of the address modifications 
can be made with the BASIC program. 
The program looks for JSR (hex 20/dec 
32) and JMP (hex 4C/dec 76) values in the 
new memory locations. The majority of 
changes necessary were in those two in- 
structions alone. When the program 
finds dec 32 or dec 76 followed by a loca- 
tion in pages 4 through 7 (where the 
original program was located), it modi- 
fies the page number to the relocated 
values, 28 through 31 respectively. This 
program is quite a bit slower than a 
machine language version, but it certain- 
ly runs faster than I could type in the 
changes. 

Since the BASIC program has flaws, it 
is important to check for errors. The 
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relocated monitor program contained 
two unnecessary changes which were 
easy to find and change back. I manually 
corrected these errors using a low moni- 
tor and looked for other locations which 
needed to be changed. All instructions 
besides JSR and JMP that have an ab- 
solute addressing mode referring to 
relocated addresses must be modified. 
Much harder to find are table values and 
page zero references. A source listing or 
disassembler output listing is essential. 



I had the advantage of having the 
source code for the monitor (PET User 
Manual, p. 100) and changes were easier 
to identify. However, I have successfully 
relocated code with just a dissassembl- 
ed listing and no comments or 
mnemonic variable names. A few ex- 
amples of what to look for are shown in 
Figure 2. 



1E00 


9A 


4C 


8B 


C3 


A2 


01 


DO 


02 


1E08 


A2 


09 


B5 


10 


48 


B5 


11 


20 


1E10 


13 


1E 


68 


48 


4A 


4A 


4A 


4A 


1E18 


20 


2B 


1E 


AA 


68 


29 


OF 


20 


1E20 


2B 


1E 


48 


8A 


20 


D2 


FF 


68 


1E28 


4C 


D2 


FF 


18 


69 


06 


69 


F0 


1E30 


90 


02 


69 


06 


69 


3A 


60 


20 


1E38 


3A 


1E 


A9 


20 


4C 


D2 


FF 


A2 


1E40 


02 


B5 


10 


48 


B5 


12 


95 


10 


1E48 


68 


95 


12 


CA 


DO 


F3 


60 


20 


1E50 


5E 


1E 


90 


02 


85 


12 


20 


5E 


1E58 


1E 


90 


02 


85 


11 


60 


A9 


00 


1E60 


85 


OF 


ao 


90 


1E 


C9 


20 


DO 


1E68 


09 


20 


90 


1E 


C9 


20 


DO 


0E 


1E70 


18 


60 


20 


85 


1E 


0A 


0A 


0A 


1E78 


0A 


85 


OF 


20 


90 


1E 


20 


85 


1E80 


1E 


05 


OF 


38 


60 


C9 


3A 


08 


1E88 


29 


OF 


28 


90 


02 


69 


08 


60 


1E90 


20 


CF 


FF 


C9 


0D 


E0 


F8 


68 


1E98 


68 


4C 


57 


1C 


4C 


9B 


1C 


20 


1EA0 


90 


1E A9 


00 


85 


EE 


85 


FA 



The BASIC modify program changed 72 
locations (2 of which were in error). I 
have underlined the correct changes and 
put an asterisk beside the corrected er- 
rors. Fourteen locations needed to be 
changed manually, and these have been 
boxed. By my count, more than 3/4 of the 
changes were made by the BASIC pro- 
gram. I was satisfied, but others may 
wish to write a more comprehensive 
utility. 



Once properly moved and relocated, 
the monitor can be run (SYS 7183) and 
saved on tape (S 01, 1C00, 1F6B). The 
break vector is set automatically on 
entering the program. After the first run, 
the program can be restarted with SYS 
1024 which is easier to remember. That 
trick takes advantage of the zero (BRK) 
first byte in every BASIC program. 



The trickiest part of relocating in- 
volves indirect instructions. The instruc- 
tion itself does not have to be changed, 
but the numbers stored as page 
pointers may have to be. Somewhere in 
the code, there may be a combination 
like LDA $05/STA $35, which would 
have to be changed to LDA #1D/STA 



$35. The monitor program did not con- 
tain examples of these insl ructions. 



A hex listing of the relocated monitor 
is shown in Figure 3. All functions have 
been checked and appear to be working. 



Moving and relocating programs can 
be fun as well as useful. In some 
respects it's like a game or puzzle. I 
believe this is the aspect that appeals to 
me. I would enjoy hearing from other 
PETters about their success or failures 
in relocating programs (SASE for reply). 



T.D.O. 
TAPE DATA QUERY 



PET-8K 



SOL-IIA 



TRS-80-LEVEL II 



* FILE MANAGEMENT SYSTEM 

—Utilizes Dual Audio Cassette Recorders 

* INTERACTIVE QUERY LANGUAGE 

—English-Like Commands 
—Powerful Info Retrieval Capability 

* COMPUTERIZED BUSINESS & PERSONAL RECORDS 

—Customize Your Own File Structures 

—Create & Maintain Data Files 

—No Programming Experience Required 

* IMPLEMENTED IN BASIC 

T.D.Q. CASSETTE WITH MANUAL & REF. CARD 550.00 

The Following Pre-Defined T.D.Q. File Structures 
Are Available To Solve Your Data Processing Needs: 

INVENTORY CONTROL $35.00 

ACCOUNTS RECEIVABLE $35.00 

ACCOUNTS PAYABLE $35.00 

ORDER PROCESSING $35.00 

CUSTOMER DIRECTORY $25.00 

APPOINTMENT SCHEDULING $25.00 

Each With Cassette And Manual 

Send Self- Addressed Stamped Envelope For 

Complete Software Catalogue. 

Send Check Or Money-Order To: 

H. GELLER COMPUTER SYSTEMS 

DEPT. M, P.O. BOX 350 

NEW YORK. NY 10040 

(New York Residents Add Applicable Sales Tax) 



NOW AVAILABLE 
For SOL-IIA and PET-8K 

GENERAL PACK 1 $11.00 

(Checkbook Balancer, Tic Tac Toe, Metric Conversion) 

GENERAL PACK 2 $19.00 

(Space Patrol, Biorhythm, Battlestar, One-Armed Bandit) 



FIN/UNCIAL PACK 1 

(Loans, Depreciation, Investments) 



S13.00 



FIN/UNCIAL PACK 2 $13.00 

(Mongage & Loan Amortization, Future Projections, 
Rislc Analysis) 

STATISTICS PACK 1 $19.00 

(Mean & Deviation, Distribution, Linear Correlation & 
Regression, Contingency Table Analysis) 

GAME PACK 1 $20.00 

(Basketball, Object Removal, Bowling, Darts, Gopher) 



GAME PACK 2 - (children - educational) 
(Arithmetic God, Addition Dice, Travel) 



$13.00 



For the KIM-1 
PCPOS - A Real-Time Operating System in the $50.00 
IK KIM RAM 

In:ludes: Assembly listing; Cassette with user's 
manual; Schematic for relay control board 
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POWERSOFT, INC. 

P. O. BOX 157 

PITMAN, NEW JERSEY 08071 

(609) 589-5500 



products for the 

APPLE n 



APPLESOFT II UTILITY 



(Diskette Only) $12.45 



The Applesoft II Utility program provides the user with the following features, a) Complete automatic renumbering of any Applesoft II 
program, b) The creation of an EXEC File for subroutine file creation. This feature allows you to incorporate the same subroutine in various pro- 
grams, c) No modification of the program in machine memory (RAM), d) Automatic running of the program. No programmer should be without 
this excellent utility program. REQUIREMENTS: Disk II, Applesoft II, 16K of memory. 



REAL ESTATE ANALYSIS PROGRAM 



$14.95 



The Real Estate Analysis Program provides the user with three features, a) A powerful real estate investment analysis for buy/sell decisions 
and time to hold decisions for optimal rental/commercial investments, b) Generation of complete amorization schedules consistent with banking 
practices and schedules, c) Generation of depreciation schedules for selecting the best depreciation schedule for your use and a determination of 
optimal switch over points to straight line to maximize depreciation. All three features are designed for video screen or printer output. In addition, 
the program will plot; cash flow before taxes vs. years, cash flow after taxes vs. years, adjusted basis vs. years, capital gains vs. years, pre-tax pro- 
ceeds vs. years, post-tax proceeds vs. years, and return on investment (%) vs. years. REQUIREMENTS: Applesoft II, 16K of memory without DOS 
or 32K of memory with DOS (Disk II). 



ADDRESS FILE GENERATOR 



$19.95 



A professional piece of software which allows the user to create four different types of address files: a) Holiday File, b) Birthday File, 
c) Home Address File, and d) Commercial Address File. The program contains a menu of seven major commands: 1 ) Create a File, 2) Add to File, 
3) Edit File, 4) Display File, 5! Search File, 6) Sort File, and 7) Reorganize File. Most of the major commands have subordinate commands which 
adds to the flexibility of this powerful software system. We doubt you could buy a better program for maintaining and printing address files. 
REQUIREMENTS: Disk II, Apple Printer Card, 32K of memory with Applesoft ROM Card or 48K of memory without Applesoft ROM Card. 



SUPER CHECKBOOK 



$19.95 



A totally new checkbook program with a unique option . . . Bar Graphs. These bar graphs, outputed to a printer or video screen, provide 
trend analysis data on code expense, income, expenses, or gain/loss on a month by month basis. The program contains a total of fourteen options: 
1 1 Check/Deposit Entry & Modification, 2) Reconciliation of Checks or Deposits, 3 ) Sort by Check Number, 41 Sort by Code for Year, 5) Sort by 
Code for Month, 6) Output Year to Date, 7) Output Month Activity, 8-11) Printer/Video Plot Trend Analysis-Bar Graphs, 12) Account Status, 
13) Reconciled Check Status, and 14) Quit. An excellent program for maintaining your checkbook, or that of a small business. REQUIREMENTS: 
Disk II, 32K of memory with Applesoft ROM Card or 48K of memory without Applesoft ROM Card. 



FUNCTION GRAPHS AND TRANSFORMATIONS 



$14.95 



This program uses the Apple II high resolution graphics capabilities to draw detailed 
graphs of mathematical functions which the user defines in Basic syntax. The graphs appear in a 
large rectangle whose edges are X and Y scales (with values labeled by up to 6 digits). Graphs 
can be superimposed, erased, drawn as dashed (rather than solid) curves, and transformed. The 
transformations available are reflection about an axis, stretching or compressing (change of scale), 
and sliding (translation). The user can alternate between the graphic display and a text display 
which lists the available commands and the more recent interactions between user and program. 
Expected users are engineers, mathematicians, and researchers in the natural and social sciences; 
in addition, teachers and students can use the program to approach topics in (for example) 
algebra, trigonometry, and analytic geometry in a visual, intuitive, and experimental way which 
complements the traditional, primarily symbolic orientation. REQUIREMENT:!: 16K of 
memory with Applesoft ROM Card or 32K of memory without Applesoft ROM Card. 

Available at your local computer store 
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Call or write for our free SOFTWARE & ACCESSORIES CATALOG 
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DEALER INQUIRIES INVITED 



Apple II is a registered 

trademark of Apple Computer, Inc. 



POWERSOFT, INC. 

P. O. BOX 157 

PITMAN, NEW JERSEY 08071 

(609) 589-5500 



• Check or Money Order 

• Include $1.00 for 
shipping and handling 

• C.O.D. ($1.00 add'tl. charge) 

• Master Charge and VISA 
orders accepted 

• New Jersey residents add 
5% seles tax 

Programs Available on Diskette 
at $5,00 Additional 



Life in the Fast Lane 



Richard R. Auricchio 
1596 Stapleton Court 
San Jose, CA 95118 



This high speed version of the game of LIFE uses lo-res 
graphics on the APPLE II. A clean assembly language 
implementation makes it easy to enhance or adapt. 



What? Yet another game of LIFE? Yes, 
this one's for the APPLE II computer, 
and it's a fairly quick one. The game runs 
in Lo-Res graphics using a 32 x 32 array. 
The current version is black-and-white, 
but adding color should not prove too 
difficult a task. The assembly language 
module which actually computes the 
generations is capable of running off 
about three per second on the APPLE 
screen. 

The program is designed to utilize 
both of the APPLE'S graphic screen buf- 
fers to avoid the ripple effect which oc- 
curs when the display is updated. When 
both buffers are used, the new image is 
created in the buffer not currently being 
displayed on the screen; after the com- 
plete^ image is created, the buffers are 
swapped via the hardware controls in 
the APPLE. 

In addition to the two screen buffer 
areas, the actual LIFE generations are 
performed in a 32 x 32 array (1K bytes). 
Separating the screen and LIFE array 
makes it easier to interface with the 
LIFE program from BASIC; in addition, a 
speed increase was realized because it 
was not necessary to "read" the screen 
points to compute the next generation. 
The code to perform an assembly 
language SCRN(X, Y) function, although 
short, requires computation of screen 
coordinates. This computation would 
cost valuable compute-time. 



Program Organization 

There are two entry points to the LIFE 
program. One, which performs initializa- 
tion, is used to clear the LIFE array and 
set up the screen buffer pointers. The se- 
cond screen buffer is then blanked out 
by copying the first into the second. 

The second entry is the "run" entry to 
perform LIFE generations. This is the 
main part of the LIFE program. It runs 
until either the screen becomes com- 
pletely blank, or the user hits: any key on 
the APPLE keyboard. The program will 
not detect a stable LIFE pattern. It will 
keep running more generations even 
though the display does not appear to 
change. 

The LIFE program makes two passes 
over the LIFE array to compute each 
generation. The first pass sets up pen- 
ding births and deaths within the array. 
This is done by accessing cells 
(neighbors) which border the current cell 
being examined. The array is allowed to 
wrap around and going off one edge br- 
ings you back in on the other side. The 
second pass completes the birth/death 
process, displays the cells in the inac- 
tive screen buffer, and swaps the 
screens. This process continues until all 
cells die or a key is hit. In either event, a 
return is made to the BASIC program; 
the screen and LIFE array are not 
altered. This allows the BASIC program 



to actually edit the LIFE array, say, to 
add/delete cells or to center the image 
on the screen. 

Driving the Program from BASIC 

A simple Integer BASIC driver is in- 
cluded here: It allows one to type in 
points until (0.0) is entered, and then 
calls the LIFE program to display gener- 
ations on the screen. No fancy editing 
facilities have been coded, but they're 
easy enough to add if you find them 
useful. 

Structuring the Code 

The LIFE program was coded using 
straightforward techniques. No tricks or 
shortcuts were used to save a byte here, 
a microsecond there. Comments have 
been sprinkled throughout the listing to 
enable changes or customization of the 
module, and coding tricks might have 
made that next to impossible. 

Use with APPLE DOS 

The LIFE program is completely com- 
patible with APPLE DOS (both versions 3.1 
and 3.2). There are no memory areas us- 
ed which will conflict with DOS usage, 
and no DOS features are affected by runn- 
ing LIFE. Users with DOS systems should 
BSAVE the LIFE module and insert an ap- 
propriate BLOAD command at the beginn- 
ing of the BASIC driver program. 
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rpQ^aa [pioaa'- 




3 a^aa a 3<^a^ 


Include the ^^^^^^^^^^^^^^^^^^^^^^H 


*r 


ALL METAL HEAVY DUTY CASE ^^^^^^^ 
ON/OFF SWITCH and PILOT LIGHT ^^^^H 


X 


115160Hz or 230/50Hz INPUT ^| 


*f\ 


GROUNOEOTHREIE-WIRE V l~ H^ 

POWER CORD ^VB "~^-~ ~~ 


if 


POWER PIUS 5: + 5V at 5A, ± 1 2V atl A $75°° 
POWER PIUS SUPER 5: +5Vat10A, ± 12V al 1A $95™ 
POWER PIUS 5/24: + 5V al 5A, + 24 al 2.5A, ± 12V al 1A $95°° 


^- 


* 



SPECIFICALLY DESIGNED FOR THE AIM 65 

Small Enough to Fit Inside the AIM Enclosure 

Enough Power for the AIM 65 Fully Loaded 

Plus an Additional Board 

Works on 115V/60Hz or 230V/50H* 

Provides Regulated +5Vat5Aand +24VaMA 

Grounded Three-Wire Power Cord 

ON/OFF Switch and Pilot Light 




POWER A PLUS:$50°° 



s 


> 




iidi^aa rpCLcaa " 




ALL THE POWER A 
KIM-1/SYM-1 NEEDS 




Neat, Compact, Economical 


J^^B ^H Thousands in Use 


■4jr 


^|^| 115VJ60Hz 


I 


iH Regulated + 

Jj^J U + 12V at 
^__JM iH Unregulated + up to 

~"^H ^M + up to 




■^^■■H ^M Will Power a KIM-1/SYM-1 and one 
W Additional Board 

Such as MEMORY PLUS or VIDEO 

POWER PLUS: $40 00 plus 


v 


-■ 



SUPERSCOPEC-190 
by Marantz 

A High Quality Cassette Recorder 
with all of the Features Required 
for Microcomputer Systems: 

VU Meter Displays Recording. Level 
110V AC or 6#V0C or Battery Operation 
Tape Location Counter 
Three Recording Methods 

v.H.wesp^d con.™!, ±»% SUPERSCOPE C-190: $90«o 

Remote Control Heaves Electronics ON 





617/23S-3S49 



©©MPyTIEOST 



PO Box 3 
S Chelmsford. (Tlfl OI8Q4 




» THE GAME OF LIFE FOR 

« THE APPLE-II, ON A 

« 32 X 32 ARRAY. 
• 

« BY RICK AURICCHIO 

• 10-30-78 

« MODIFIED BY MICRO 

« STAFF 7-17-79 

• 

•••••••• ••••••••••••••• 



APTR 

NPTR 

NNUM 

NCNT 

NCELLS 

CRT 

COLOR 

GBASH 

A1L 

A1H 

A2L 

A2H 

AIL 

A1H 

ASTART 
AEND 

KB 

KBS 

CRTFLI 

GBASCA 

MOVE 



$0000 
$0002 
$0001 
$0005 
$0006 
$0007 
$0030 
$0027 
$003C 
$003D 
$003E 
$003F 
$0012 
$0013 

$000C 
$0010 

$C000 
$C010 
$C05l 
$F817 
$F32C 



LIFE ARRAY POINTER (L0) 

NEIGHBOR CELL POINTER (L0) 

NUMBER NEIGHBOR CHECKS 

NEIGHBOR COUNT 

NUMBER LIVE CELLS 

CRT OFFSET: 00= 1ST, 0l=2ND 

PLOT COLOR 

GRAPHIC BASE ADDRESS (HI) 

MONITOR WORK BYTES 



START PAGE FOR ARRAY 
END PAGE FOR ARRAY 

KEYBOARD INPUT ADDRESS 
KEYBOARD STROBE CLEAR 
C051/C055 FLIPS CRT 
CALCULATE PLOT ADDRESS 
BLOCK MOVE ROUTINE 



* MEMORY LAYOUT: 



PAGE(S) 

01-07 

08-OB 

0C-0F 

10-11 



CONTENT 
CRT#1 
CRT#2 

LIFE ARRAY 
PROGRAM 



ORG $1000 

CALL TO INIT WILL CLEAR THE LIFE ARRAY 
AND SET UP THE APPROPRIATE CRT POINTER 
* 

ORIGIN SET ARRAY POINTER 
SET CRT TO SECOND 
FOR THE FIRST GENERATION 
ZERO INDEX 
ZERO THE AC 
CLEAR ARRAY BYTE 
BUMP TO NEXT BYTE 
=>M0RE TO DO 

BUFFER 



SET UP ADDRESSES 
TO COPY CRT DATA: 
0100-07FF =r> 0800-OBFF 



1000 20 


DA 


10 


INIT 


JSR 


0RIGI 


1003 A9 


04 








LDAIM 


$01 


1005 85 


07 








STA 


CRT 


1007 A0 


00 








LDYIM 


$00 


1009 98 






CLRA 


TYA 




100A 91 


00 








STAIY 


APTR 


100C 20 


E5 


10 






JSR 


BUMP 


100F 90 


F8 








BCC 


CLRA 








* 


CLEAR SECOND CRT 


1011 A2 


00 








LDXIM 


$00 


1013 86 


3C 








STX 


A1L 


1015 86 


112 








STX 


AIL 


1017 CA 










DEX 




1018 86 


3E 








STX 


A2L 


101A A2 


04 








LDXIM 


$01 


101C 86 


3D 








STX 


A1H 


101E A2 


08 








LDXIM 


$08 


1020 86 


13 








STX 


A1H 


1022 CA 










DEX 




1023 86 


3F 








STX 


A2H 


1025 20 


2C 


F3 






JSR 


MOVE 


1028 60 










RTS 
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BLOCK MOVE 

DONE. BACK TO BASIC (S) 

September, 1979 



1029 20 DA 10 RUN 



ENTRY AT RUN WILL DO THE 
PROCESSING UNTIL EITHER: 

1) ALL CELLS DIE, OR 

2) ANY KEY IS HIT. 
IT WILL THEN RETURN 



JSR ORIGIN SET ARRAY POINTER 



PASS1 WILL SCAN THE ARRAY 
AND SET UP BIRTHS/DEATHS 
FOR ALL CELLS 



102C A9 07 

102E 85 1 ! 

1030 A9 00 
1032 85 05 

1031 A5 01 
1036 OA 
103? AA 



PASS1 LDAIM $0? 
STA NNUM 
LDAIM $00 
STA NCNT 

NBCHK LDA NNUM 
ASLA 
TAX 



SET TO CHECK OUT 
SEVEN NEIGHBORS 
THERE ARE NO 
NEIGHBORS YET 
GET NEIGHBOR NUMBER 
AND MAKE IT A 
2-BYTE INDEX 



SET NPTR BY ADJUSTING THE CURRENT 
CELL POINTER BY THE FOLLOWING VALUES: 
-33, -32, -31, -1, +1, +31, +32, +33 



1038 18 




CLC 






1039 A5 


00 


LDA 


APTR 


GET LO HALF 


103B 7D 


OA 11 


ADCX 


OFFSET 


ADD/SUBTRACT 


103E 85 


02 


STA 


NPTR 


SET NPTR LO 


1010 A5 


01 


LDA 


APTR 


+01 GET HI HALF 


1012 7D 


OB 11 


ADCX 


OFFSET 


+01 ADD/SUBTRACT 


10H5 C9 


10 


CMPIM 


AEND 


PAST THE END OF ARRAY 


1017 BO 


08 


BCS 


SUB01 


=>YES: BACK IT UPI 


10H9 C9 


OC 


CMPIM 


ASTART 


BELOW START OF ARRAY? 


101B BO 


06 


BCS 


STORE 


=>N0: WITHIN BOUNDS 


10HD 69 


01 


ADCIM 


$01 


BUMP UP INTO ARRAY 


104F DO 


02 


BNE 


STORE 


AND GO STUFF NPTR 


1051 E9 


01 


SUBOt SBCIM 


$01 


BACK UP INTO ARRAY 


1053 85 


03 


STORE STA 


NPTR 


+01 NOW SET NPTR HI 



• CHECK OUT THIS NEIGHBOR 

1055 AO 00 LDYIM $00 INDEX = 

1057 B1 02 LDAIY NPTR GET NEIGHBOR 

1059 10 02 BPL NEXTNB =>NONE HERE 

105B E6 05 INC NCNT =>ONE HERE: COUNT UP 

« 

* TRY NEXT NEIGHBOR 



05D C6 01 


NEXTNB DECZ 


NNUM 


MORE TO DO? 


05F 10 D3 


BPL 


NBCHK 


=>YES: DO ALL 



ALL NEIGHBORS COUNTED 
MAKE LIFE/DEATH DECISION 



1061 A6 05 

1063 B1 00 

1065 10 OA 

1067 EO 02 

1069 90 12 

106B EO 01 

106D BO OE 

106F 90 01 

1071 EO 03 

1073 DO 08 

1075 E6 06 

1077 A9 10 

1079 11 00 
107B 91 00 
107D 20 E5 10 

1080 90 AA 



LDX NCNT 
LDAIY APTR 
BPL CHKBIR 
CPXIM $02 
BCC DIE 
CPXIM $01 
BCS DIE 
BCC SURVIV 

CHKBIR CPXIM $03 
BNE DIE 



GET CURRENT COUNT 

GET CURRENT CELL 

=>EMPTY: MAYBE BIRTH HERE? 

ALIVE: TWO NEIGHBORS? 

=> OH 1: DIE! 

1-7 NEIGHBORS? 

=>YUP: DIE OF OVERCROWDING! 

=>2 OR 3: SURVIVE 

EXACTLY THREE NEIGHBORS? 
=>N0: EMPTY CELL STAYS DEAC 



SURVIV INC NCELLS. BUMP COUNT OF LIVE CELLS 



DIE 



LDAIM $10 
ORAIY APTR 
STAIY APTR 
JSR BUMP 
BCC PASS1 



"OR" IN 10 BIT 

TO SURVIVE 

THIS TIME 

SET NEXT CELL TO DO 

:>MORE TO DO 



Gaaagaa^ \j>\im 




AIM/SYM/KIM 
8K STATIC RAM P0 -°" R 
Sockets for 8K Eprom 
6522 1/0 Port 

ON BOARD REGULATORS 

HOT! EPROM 
iH ™ ffl PROGRAMMER 



MEMORY PLUS: $20000 



FULLY ASSEMBLED AND TESTED 



^©11® 5>H.(2)Q "»■ AIM/SYM/KIM 




UPPERIIower case ASCII 

128 Additional User Programmable 

Characters: GRAPHICS' 

SYMBOLS-FOREIGN CHARACTERS 
Programmable Screen Formal up to 

80 CHARACTERS - 24 LINES 
KEYBOARD and LIGHT PEN Interlaces 
Up to 4K DISPLAY RAM 
Provision for2K EPROM 
Provision to add 6502 for 

STANDALONESYSTEM 

ASSEMBLED AND TESTED 

WITH 2K DISPLAY RAM 

VIDEO PLUS: $24500 



A00 UP TO FIVE ADDITIONAL BOARDS AIM/SYM/KIM 

AUDIO/TTY CONNECTIONS 
POWER TERMINALS 
APPLICATION CONNECTORS 

FULLY BUFFERED 
FULLY DECODED 
KIM-4 Bus Structure 




MOTHER PLUS: $8000 



FULLY ASSEMBLED AND TESTED 



f- 




- 




PljKDtfa 


5>a,oa- FOR 




Same SIZE and SHAPE as KIM/SYM 


AIM/SYM/KIM 




Professional Quality 








Double Sided, Plated through Holes 








Two Sets of GOLD Plated Dual 22 Fi 


ngers 






Designed for WIRE WRAP or 
SOLDER Connections 




mi 




Provisions for 40 14/16 pin sockets 
4 24J40 P<n sockets 
J voltage regulators 


PROTOPLUS:$40 00 


K. 




J 




617/236-3649 



V 



©©GMPyTL^OgTT 



PO Box 3 
S Chelmsford. iTIfl OI824 
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• 


PASS 2 WILL 


DISPLAY THE 






t 


ARRAY BY 


PLOTTING POINTS 






t 


IN 


CRT #1 


OR #2 


AND 






• 


WILL THEN 


SWAP SCREENS 


1082 B1 


00 


PASS2 


LDAIY 


APTR 


GET CURRENT CELL 


1081 A2 


00 






LDXIM 


$00 


ASSUME DEAD: COLOR = 


1086 0A 








ASLA 




SHIFT ONE BIT LEFT 


1087 91 


00 






STAIY 


APTR 


AND PUT BACK 


1089 FO 


02 






BEQ 


SETCOL 


= >NOT ALIVE! 


108B A2 


FF 






LDXIM 


$FF 


ALIVE: COLOR - 15 


108D 86 


30 


SETCOL 


STX 


COLOR 




108F A9 


1F 






LDAIM 


$1F 


X CO-ORDINATE IS 


1091 25 


00 






AND 


APTR 


LOW 5 BITS 


1093 18 








CLC 




BUMP DOWN TO 


1091 69 


OH 






ADCIM 


$01 


CENTER OF CRT 


1096 A8 








TAY 




OF APTR 


1097 A5 


00 






LDA 


APTR 


Y CO-ORDINATE IS 


1099 1A 








LSRA 




HIGH 3 BITS 


109A 1A 








LSRA 






109B 1A 








LSRA 




OF 


109C HA 








LSRA 






109D 1A 








LSRA 




APTR 


109E 85 


01 






STA 


NNUM 


HOLD TEMPORARILY 


10A0 A9 


03 






LDAIM 


$03 


NOW MERGE IN 


10A2 25 


01 






AND 


APTR 


+01 2 LOW BITS OF 


10A1 OA 








ASLA 




APTR HI 


10A5 OA 








ASLA 




TO FORM 


10A6 OA 








ASLA 




FULL 


10A7 05 


01 






ORA 


NNUM 


Y CO-ORDINATE 


10A9 18 








CLC 




BUMP DOWN TO 


10AA 69 


01 






ADCIM 


$01 


CENTER OF CRT 


10AC 20 


F9 10 






JSR 


PLOTX 


PLOT THE POINT 



10AF AO 00 
10B1 20 E5 10 
10B1 90 CC 



LDYIM $00 
JSR BUMP 
BCC PASS2 



INDEX 

BUMP TO NEXT POINT 

=>D0 ALL CELLS 



10B6 A5 07 


LDA 


10B8 1A 


LSRA 


10B9 1A 


LSRA 


10BA AA 


TAX 


10BB 9D 51 CO 


STAX 


10BE BD 08 11 


LDAX 


10C1 85 07 


STA 



* SET HARDWARE TO DISPLAY THE CURRENT 

* SCREEN AND SWAP OVER TO THE OTHER SIDE 

CRT GET CRT NUMBER 
SCALE DOWN 
TO OR 1 RANGE 
TO INDEX REG 
CRTFLI FLIP CRT DISPLAY 
CRTNUM GET CRT NUMBER 
CRT FOR NEW CUT 
• 

* CONTINUE RUNNING UNLESS 
» ALL DEAD OR KEY HIT 



10C3 AD 00 CO 

10C6 10 07 

i0C8 8D 51 CO 

10CB 8D 10 CO 

10CE 60 

10CF A5 06 

10D1 FO F5 

10D3 A9 00 

10D5 85 06 

10D7 1C 2C 10 



LDA 
BPL 

RETURN STA 
STA 
RTS 

NOKEY LDA 
BEQ 



KB CHECK KEYS 
NOKEY =>N0 KEY HIT 
CRTFLI SET CRT #1 ALWAYS 
KBS CLEAR KEYBOARD 

NCELLS GET COUNT OF CELLS 
RETURW =>ALL DEAD 



LDAIM $00 



MORE LEFT 



STA 
JMP 



NCELLS CLEAR COUNT AND 
PASS1 GO AROUND AGAIN 



» SET UP ARRAY POINTERS 



10DA A9 00 


ORIGIN 


LDAIM 


$00 SET UP THE 


10DC 85 00 






STA 


APTR LO BYTE OF A 


10DE 85 06 






STA 


NCELLS AND CLEAR CE 


10E0 A9 OC 






LDAIM 


ASTART SET UP START 


10E2 85 01 






STA 


APTR +01 OF ARRAY 


10E1 60 


n 




RTS 






• 


BUMP 


APTR. 


RESETS IT IS 



• WE GO PAST END OF ARRAY. 



CARRY TELLS IF WE HIT 
THE END OF THE ARRAY: 
8 NO, 1 = YES 



10E5 


E6 


00 


10E7 


DO 


OE 


10E9 


E6 


01 


10EB 


A5 


01 


10ED 


C9 


10 


10EF 


DO 


06 


10F1 


A9 


OC 


10F3 


85 


01 


10F5 


38 




10F6 


60 




10F7 


18 




10F8 


60 





BUMP 



BUMPO 



INCZ 


APTR 


BUMP LO HALF 


BNE 


BUMPO 


=>NOT OFF END 


INC 


APTR 


+01 BUMP HI HALF 


LDA 


APTR 


+01 GET IT 


CMPIM 


AEND 


OFF THE END? 


BNE 


BUMPO 


=>N0T YET 


LDAIM 


ASTART 


=>YES: RESET AND 


STAZ 


APTR 


+0.1 TELL CALLER 


SEC 






RTS 






CLC 






RTS 







SPECIAL FORM OF "PLOT" 
ROUTINE: MONITOR'S ONE 
DOESN'T ALLOW PLOTTING 
IN SECOND CRT BUFFER, 
SO WE ADD A HOOK FOR IT 



10F9 1A 
10FA 08 
10FB 20 17 Ff 



PLOTX 



LSRA 

PHP 

JSR 



GBASCA 



ABOVE INSTRUCTIONS ARE 
TAKEN RIGHT OUT OF THE 
MONITOR'S ROUTINE. BUT 
WE WILL NOW UPDATE THE 
HI ADDRESS IN "GBASH" 
TO FORCE PLOTTING IN THE 
CORRECT SCREEN BUFFER 



10FE A5 


07 




LDA 


CRT GET CRT 






1100 18 






CLC 


ADD TO THE 






1101 65 


27 




ADC 


GBASH VALUE FOR 






1103 85 


27 




STA 


GBASH POSSIBLE SECOND CRT 


1105 1C 


05 r& 




JMP 


$F805 AND CONTINUE WITH 








» DATA 


AREAS 














» (READ ONLY) 

1 








1108 01 




CRTNUM 


= 


$01 








1109 00 






= 


$00 








110A DF 




OFFSET 


= 


$DF 








110B FF 






= 


$FF 








HOC EO 






= 


$E0 








110D FF 






= 


$FF 








110E E1 






= 


$E1 








110F FF 






= 


$FF 








1110 FF 






= 


$FF 








1111 FF 






= 


$FF 








1112 01 






i 


♦01 








1113 00 






= 


$00 








1111 1F 






= 


♦ IF 








1115 00 






= 


♦00 








1116 20 






= 


$20 








1117 00 






= 


♦00 








1118 21 






= 


♦21 








1119 00 






= 


♦00 








SYMBOL 


TABLE 


2000 20FC 










AEND 


0010 


APTR 


0000 


AQH 


003D 


AQL 


003C 


ARH 


003F 


ARL 


003E 


ASTART 


OOOC 


ATH 


0013 


ATL 


0012 


BUMP 


10E5 


BUMPP 


10F7 


CHKBIR 


1071 


CLRA 


1009 


COLOR 


0030 


CRTFLI 


C051 


CRTNUM 


1108 


CRT 


0007 


DIE 


107D 


GBASCA 


F817 


GBASH 


0027 


INIT 


1000 


KB 


COOO 


KBS 


C010 


MOVE 


F32C 


NBCHK 


103'4 


NCELLS 


0006 


NCNT 


0005 


NEXTNB 


105D 


NNUM 


OOO'I 


NOKEY 


10CF 


NPTR 


0002 


OFFSET 


110A 


ORIGIN 


10DA 


PASSQ 


102C 


PASSR 


1082 


PLOTX 


10F9 


RETURN 


10C8 


RUN 


1029 


SETCOL 


108D 


STORE 


1053 


SUBPT 


1051 


SURVIV 


1075 
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=* Pygmy 
Programming 



PRESENTS 



APPLE BUSINESS SOFTWARE 

APPLE-DMS© 48k & disk required $49.00 

Apple data management system ... the ultimate in free- 
form systems. You define the name and length of fields 
within each record. Multi disk capability gives you access 
to Ihousands of records at once with the included 
sort/edit features! The print format is also defined by the 
user for custom report generation. Uses include mailing 
labels,' inventory, personnel data and other record 
keeping functions. 

APPLE-SCRIBE-Z© disk or cassette $49.00 

Text processor ... the perfect addition to any business 
system. This is a non-line oriented editor that allows 
upper and lower case letters, any width paper and any 
length page. Included features are automatic headings, 
date and page number, right hand justification, search 
with universal or individual replacements. Text is stored 
on disk or cassette for easy retrieval. 

P.O. Box 3078 • Scottsdale, AZ 85257 



rnrri up to T I/O in merchandise 
rUtt! with the purchase of PET-CBM 
item!!! 



FREE 
MERCH. 



$130 
$170 
$100 
$170 
$110 
$130^ 
SYM 




PET 16K Large Keyboard $ 995 

PET 3ZK Large Keyboard $1295 

PET 8K S 795 

PET 2040 Dual Disk (343K) $1295 

PET 2023 Printer (pres feed) $ 849 

PET 2022 Printer (trac feed) $ 995 

KIM-1 $159 (Add $30 for Power Supply) SYM-1 

6500 Programming Manual 

2114 L 450 ns 5.90 24/5.15 

2716 EPROM (5 Volt) 

6550 RAM (for 8K PET) 

6502 Microprocessor Chip 

6522 VIA 

6520 PIA 

PET 4 Voice Music Board (MTUK-1002-2) 

Music Software (K-1002-3C) for PET 

Programmers Toolkit - PET ROM Utilities 

Microchess 2.0 for PET or APPLE 
_ PET Word Processor - Machine Language 
| ||3M "Scotch" 8" disks qai C 

Mzsfsxr -- 

Cassettes (all tapes guaranteed) 

Premium quality, high output lownoise in 5 screw 
housing with labels: 

C-10 10/5.95 50/25.00 100/48.00 

C-30 10/7.00 50/30.00 100/57.00 

WRITE FOR 6502 AND S 100 PRODUCT LIST 

115-B E. Stump Road 

A B COmPUterS Montgomeryville, PA 18936 

r (215)699-8386 



$222.00 

6.50 

100/4.45 

42.00 

12.70 

9.75 

9.75 

5.50 

S 49.00 

$ 19.00 

$ 45.00 

17.90 

24.00 

10/531 1 

10/5351 

10/$271i 



KIM/SYM/AIM-65-32K EXPANDABLE RAM 

DYNAMIC RAM WITH ON BOARDTRANSPARANT REFRESH 
THAT IS COMPATIBLE WITH KIM/ SYM/AIM-65 
AND OTHER 6502 BASED MICROCOMPUTERS. 




BETA COMPUTER DEVICES 

P.O. BOX 3465 
ORANGE. CALIFORNIA 92665 

(714) 633-7280 



* PLUG COMPATIBLE WITH KIM/SYM/AIM-65. 
MAY BE CONNECTED TO PETUSING ADAPTOR 
CABLE. SS44-E BUS EDGE CONNECTOR. 

» USES *5V ONLY (SUPPLIED FROM HOST 
COMPUTER BUS). 4 WATTS MAXIMUM. 

* BOARD ADDRESSABLE IN 4K BYTE BLOCKS 
WHICH CAN 8E INDEPENDENTLY PLACED ON 
4K BYTE 8OUN0ARIES ANYWHERE IN A 64K 
BYTE ADDRESS SPACE. 

* BUS BUFFERED WITH 1 LS TTL LOAD. 

* 200NSEC 4716 RAMS. 

* FULL DOCUMENTATION 

* ASSEMBLED AND TESTED BOARDS ARE 
GUARANTEED FOR ONE YEAR, AND 
PURCHASE PRICE IS FULLY REFUNDABLE IF 
BOARD IS RETURNED UNDAMAGED WITHIN 
14 DAYS. 

ASSEMBLED; 

TESTED KIT 

WITH 32K RAM M49.00 J41900 

WITH 16K RAM $379.00 J349H0 

WITHOUT RAM CHIPS S3O9.0O J279.0O 

HARD TO GET PARTS ONLY (NO RAM CHIPS) J150.00 

BARE BOARD AND MANUAL J50.00 



Kt IMTEBSflE m U 



CONNECTS THE ABOVE 3ZK EXPANDABLE RAM TO A 4K OR 8K PET. 
CONTAINS EXPANSION INTERFACE CABLE. BOARD STANDOFFS, 
POWER SUPPLY MODIFICATION KIT AND COMPLETE INSTRUCTIONS. 



ALL ASSEMBLED BOARDS AND MEM- 
ORY CHIPS CARRY A FULL ONE YEAR 
REPLACEMENT WAHANTY. 



16KX I DYNAMIC RAM 

THE MK4116-3 IS A 16,384 BIT HIGH SPEED 
NMOS, DYNAMIC RAM. THEV ARE EQUIVALENT 
TO THE MOSTEK, TEXAS INSTRUMENTS. OR 
MOTOROLA 41 16-3. 

» 200 NSEC ACCESS TIME, 375 NSEC CYCLE 
TIME. 

* 16 PIN TTL COMPATIBLE 

» BURNED IN AND FULLY TESTED 

* PARTS REPLACEMENT GUARANTEED FOR 
ONE YEAR. 

S9.50 EACH IN QUANTITIES OF B 



MOTOROLA MEMORY ADDRESS MULTIPLEXER— 
MC 3242A 

THE MC 3242A IS AN A00RESS MULTIPLEXER 
AND REFRESH COUNTER FOR 16 PIN, 16K 
DYNAMIC RAMS THAT REQUIRE A 128 CYCLE 
REFRESH. 

* CONTAINS MEMORY REFRESH COUNTER 

* MULTIPLEXES SYSTEM 14 BIT ADDRESS TO 
THE 7 AOORESS PINS OF THE RAMS. 

* COMPATIBLE WITH 3480 MEMORY 
CONTROLLER. 

* PART IS GUARANTEED. 

112.50 EACH 



MOTOROLA DYNAMIC MEMORY COKTHOLLEH- 
MC3480L 

MEMORY CONTROLLER DESIGNEDTO SIMPLIFY 
CONTROL OF 16 PIN 4K OR 16K DYNAMIC RAMS 

* GENERATES RAS/CAS AND REFRESH TIMING 
SIGNALS FOR 16K TO 64K BYTE MEMORIES. 

. GENERATES MEMORY READ/WRITE TIMING 

* DIRECT INTERFACE WITH MOTOROLA OR 
INTEL 3242A ADDRESS MUX AND REFRESH 
COUNTER. 

. PART GUARANTEED. 

11395 EACH 



6502. 64K BYTE RAM AND CONTROLLER SET 
MAKE 64K BYTE MEMORY FOR YOUR 6800 OR 
6502. THIS CHIP SET INCLUDES 

* 32M5K4116-3 16KX1, 200 NSEC RAMS. 
. 1 MC3480 MEMORY CONTROLLER. 

* 1 MC3242A MEMORY AODRESS 
MULTIPLEXER AND COUNTER. 

. DATA AND APPLICATION SHEETS PARTS 
TESTED AND SUARANTEED. 
{295.00 PER SET 



EPROM 

2716450NSEC M9.0( 



SYM-1 Event Timer 



Help that onboard 6532 earn its keep with this 100 KHz 
event timer. It handles up to 50 elapsed time intervals 
or successive timed events. 



Stephen J. Faris 

Synertek Inc. 

400 Humphrey Street 

Swampscott, MA 01907 



MICRO-WARE ASSEMBLER 65XX-1 .0 

* 

« EVENT TIMER PROGRAM 

* 

* BY STEPHEN J. FARIS 

* MODIFIED BY MICRO STAFF 



Very often it is desired to measure the 
time between two events, such as the 
start and end of a race or the time taken 
to respond to a given stimulus. The time 
between events can occur from a given 
start pulse to each succeeding pulse as 
follows: 



02AF 




GETKEY 




$88AF 


02AF 




ACCESS 




$8B86 


02AF 




0UTBYT 




$82FA 


02AF 




SCAND 




$8906 


02AF 




D1 




$0000 


02AF 




D2 




$0001 


02AF 




D3 




$0002 


02AF 




N 




$0006 


02AF 




R1 




$0006 


02AF 




R2 




$0056 


02AF 




R3 




$00A6 


02AF 




DB1 




$A645 


02AF 




DB2 




$A644 


02AF 




DB3 




$A643 


02AF 




DB4 




$A642 


02AF 




DB5 




$A641 


02AF 




PA0 




$A001 


02AF 




PBO 




$A000 


0200 






ORG 


$0200 


0200 78 






SEI 




0201 F8 






SED 




0202 A2 


00 




LDXIM 


$00 


0204 A9 


50 




LDAIM 


$50 


0206 8D 


7E A6 




STA 


$A67E 


0209 A9 


02 




LDAIM 


$02 


020B 8D 


7F A6 




STA 


$A67F 


020E A9 


FF 


INIT 


LDAIM 


$FF 


0210 85 


00 




STA 


D1 


0212 85 


01 




STA 


D2 


0214 85 


02 




STA 


D3 


0216 AD 


01 A0 


START 1 


LDA 


PAO 


0219 29 


01 




ANDIM 


$01 


021B F0 


F9 




BEQ 


START 1 


021D AD 


01 A0 


START2 


LDA 


PAO 


0220 29 


01 




ANDIM 


$01 


0222 DO 


F9 




BNE 


START2 


0224 58 






CLI 




0225 00 






BRK 




0226 EA 






NOP 




0227 A5 


02 


ST0P1 


LDA 


D3 


0229 C9 


FF 




CMPIM 


$FF 


022B F0 


0E 




BEQ 


ESC 


02 2D AD 


00 A0 




LDA 


PBO 


0230 29 


01 




ANDIM 


$01 


0232 F0 


F3 




BEQ 


ST0P1 


0234 AD 


00 A0 


ST0P2 


LDA 


PBO 


0237 29 


01 




ANDIM 


$01 


0239 DO 


F9 




BNE 


ST0P2 


02 3B E8 




ESC 


ISX 




023C A5 


00 




LDA 


D1 


023E 95 


06 




STAZX 


R1 


0240 A5 


01 




LDA 


D2 


0242 85 


56 




STA 


R2 



DISABLE INTERRUPTS 

SET DECIMAL MODE 
AND SET X=0 



THEN SET INTERRUPT VECTOR 



INIT COUNTER 

LOOK FOR "1" LEVEL 
AT PAO INPUT 

LOOK FOR "0" LEVEL 
AT PAO INPUT 

GENERATE INTERRUPT 



LOOK FOR "1" LEVEL AT PBO 
INPUT WITH TIMEOUT AFTER 
99 IN D3 



LOOK FOR "0" LEVEL 
AT PBO INPUT 

INCREMENT X FOR NEXT POINT 





















*-T,-* 



















h T, "1*~ 



STOP/ 
START 



STOP/ 
START 



3 ' 
STOP/ 
START 



This article will use the SYM-1 board's 
6532 timer and keyboard display to 
create a device which can measure up to 
50 time intervals, store them in memory 
and then read them out one at a time. 

The first segment of the program is a loop 
loop to look for the start pulse, set up 
the 6532 timer and then look for the stop 
pulse. To measure the time between 
events, the 6532 generates an interrupt 
whenever it times out. The interrupt rou- 
tine increments a 6-digit counter which 
counts the number of time intervals un- 
til the stop pulse is found. With minor 
modifications the program can ac- 
complish both types of event measure- 
ment mentioned earlier. 

For example, the program listing shown 
will measure time events per Figure 2. In 
order to measure as per Figure 1, change 
the BNE (24B) instruction to jump to 
STOP 1. The number of time events is fix- 
ed by N. The last segment of the pro- 
gram is the readout routine. This routine 
will read out each time interval from 1 to 
N, stopping so that the answer can be 
written down before going on 
automatically to the next. After com- 
pleting the routine, the program jumps 
back to the beginning. 
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The time interval increments can be 
changed by accessing different dividers 
of the 6532 and changing the timer count 

To operate the program the following 
steps are necessary: 

1. Enter in location N the number of 
time intervals to be measured. (In 
HEX, less than 31.) 

2. Decide what type of time intervals 
are to be measured (i.e. Figure 1 or 
Figure 2). 

3. Decide time interval needed and 
enter VAL from Table I. 

4. Start program at location 200. 

5. Display results by hitting 1 on the 
keyboard. 

The interface hardware to the event 
timer can be a 556 timer connected as 
shown in Figure 3. 

The input signals can be derived from 
switches, light coupled devices or 
transducers. The output pulses are 50 
microseconds wide and positive going. 
This conditions the input pulses so the 
software can look for a minimum width 
pulse. The only other hardware required 
is a SYM-1 board, cassette and power 
supply. 



*5V 



input 
start 
pulse 



output 
to PAO 
of SKM-1 
application 
port 



1 14 

6 1 
2 

1/2 
556 



■0.1 uf 



I -[—0.01 uf 



+5V 



input 

stop 
pulse 

output 
to PB0 

of sm-1 

application 
port 



IK 



14 
13 
12 

1/2 

556 

9 11 



X 



0.1 uf 



0.01 uf 



Figure 3: Connecting a 556 timer 
for use as an interface to the 
event timer. 



0244 A5 


02 






LDA 


D3 


STORE RESULTS 


0246 85 A6 






STA 


R3 


IN MEMORY LOCATIONS 


0248 78 








SEI 






0249 E4 


06 






CPX 


N 


IS NUMBER OF INTERVALS DONE 


024B DO 


C1 






BNE 


INIT 




024D 4C 


6A 


02 


« 


JMP 


RDOUT 


JUMP TO DISPLAY 








* 6-DIGIT COUNTER INTERRUPT ROUTINE 

ft 


0250 48 






INTR 


PHA 




PUCH ACCUMULATOR 


025 T A9 


49 






LDAIM 


$49 




0253 8D 


1C 


A4 




STA 


$A41C 


LOAD TIMER 


0256 A9 


01 






LDAIM 


$01 




0258 65 


06 






ADC 


R1 


TWO LEAST SIGNIFICANT 


025A 85 


06 






STA 


R1 


DIGITS 


025C A5 


00 






LDA 


$00 




025E 65 


56 






ADC 


R2 


MIDDLE TWO DIGITS 


0260 85 


56 






STA 


R2 




0262 A9 


00 






LDAIM 


$00 




0264 65 A6 






ADC 


R3 




0266 85 


A6 






STA 


R3 




0268 68 








PLA 




PULL ACCUMULATOR 


0269 40 






f 


RTI 




RETURN FROM INTERRUPT 








t READOUT ROUTINE 




026A 20 


86 


8B 


RDOUT 


JSR 


ACCESS 


UN-WRITE PROTECT 


026D 20 


AF 


88 


KEY 


JSR 


GETKEY 


SEARCH FOR "1" KEY 


0270 C9 


31 






CMPIM 


$31 




0272 DO F9 






BNE 


KEY 




0274 A6 


06 






LDX 


N 




0276 A0 


F0 




L4 


LDYIH 


$F0 


LOAD Y FOR DISPLAY TIME 


0278 B5 A6 






LDAZX 


R3 


ON EACH INTERVAL 


027A 20 


FA 


82 




JSR 


OUTBYT 




027D B5 


56 






LDAZX 


R2 




027F 20 


FA 


82 




JSR 


OUTBYT 




0282 B5 


06 






LDAZX 


R1 




0284 20 


FA 


82 




JSR 


OUTBYT 




0287 A9 


FF 




L3 


LDAIM 


$FF 




0289 8D 


1F 


A4 




STA 


$A41F 


SET UP TIMER FOR 


028C 8D 


04 


A4 




STA 


$A404 


DISPLAY TIME 


028F 8E 


00 


03 




STX 


$0300 




0292 8C 


01 


03 




STY 


$0301 




0295 20 


06 


89 


L1 


JSR 


SCAND 


SCAN DISPLAY UNTIL TIMEOUT 


0298 AD 


05 


A4 




LDA 


$A405 




029B TO 


F8 






BPL 


LI 




029D AE 


00 


03 




LUX 


$0300 




02A0 AC 


01 


03 




LDY 


$0301 


RESTORE X AND Y 


02 A 3 88 








DEY 






02A4 F0 


03 






BEQ 


L2 




02A6 4C 


87 


02 




JMP 


L3 




02A9 CA 






L2 


DEX 






02AA DO 


CA 






BNE 


L4 




02AC 4C 


0E 


02 




JMP 


INIT 




ACCESS 


8B86 


DBQ 


A645 


DBR 


A644 DBS A643 


DBT 


A642 


DBU 


A641 


DQ 


0000 DR 0001 


DS 


0002 


ESC 


023B 


GETKEY 


88AF INIT 020E 


INTR 


0250 


KEY 


026D 


LQ 


0295 LR 02A9 


LS 


0287 


LT 


0276 


N 


0006 OUTBYT 82FA 


PAP 


A001 


PBP 


A000 


RDOUT 


026A RQ 0006 


RR 


0056 


RS 


00A6 


SCAND 


8906 STARTQ 0216 


STARTR 


02 1D 


ST0PQ 


0227 


ST0PR 


0234 



Table 1: Time Interval Data 



TIME INTERVAL 



100 MICROSECONDS 
1 MILLISECOND 
10 MILLISECONDS 
100 MILLISECONDS 



VALUE 

49 
7A 
9C 
62 



ADDRESS 
(253 of Program) 
A41C 
A41D 
A41E 
A41F 
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BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 

HUDSON DIGITAL ELECTRONICS INC. 



mi 



inc. 



THE HDE MINI-DISK SYSTEM 



fefW^ 




VERSIONS 

KIM 

TIM 

AIM 65 -4th Qtr. '79 

SYM -1st Qtr. '80 



SINGLE DRIVE 
DUAL DRIVE 



$ 795.00 
$1195.00 



Complete with all hardware. 
Interconnecting cables, FODS. 
text editor and user and instal- 
lation manuals. 



The HDE DM81 6-MD1 Mini Disk System is the per- 
ipheral you have been waiting for. No longer bounded 
by long and unreliable cassette saves and loads, your 
computer becomes a sophisticated system for program 
development or general purpose use. With the HDE 
Mini-Disk you load and save programs in seconds, not 
minutes or hours. And, since all transfers to and from 
the Miri-Disk are verified for accuracy, the data will be 
there when you need it. 

The HDE DM81 6-MD1 Mini-Disk has been "systems" 
engineered to provide a complete and integrated capa- 
bility. Software and hardware have been built as a team 
using the most reliable components available. The sys- 
tems software includes the acclaimed and proven 
HDE File Oriented Disk System and Text EDitor, requir- 
ing only 8K for the operating software and overlay area. 
Systems expanding programs available include the 



two-pass HDE assembler, the Text Output Processing 
System and Dynamic Debugging Tool. Hardware in- 
cludes a Western Digital 1771 based controller in a 
state-of-the-art 4''2 x 6 1/ 2"card size. Shugart SA400 drive 
and the Alpha power supply. 

The storage media fortheDM8l6-MD1 is the stan- 
dard, soft sectored 5W mini diskette readily available 
at mosl computer stores, and HDE has designed the 
system so that the diskettes rotate only during disk 
transactions, favorably extending media life. A disk 
formatter routine included with the system, formats the 
diskettes, verifies media integrity by a comprehensive 
R/W test and checks drive RPM. Additional utilities 
provide ascending or descending alpha numeric sort. 
disk packing, text output formatting, file renaming, 
file addressing and other capabilities. 



HDE PRODUCTS. BUILT TO BE USIED WITH CONFIDENCE. 
AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 



JOHNSON COMPUTER PLAINSMAN MICROSYSTEMS ARESCO 

Box 523 Box 1712 P.O. Box 43 

Medina, Ohio 44256 Auburn, Ala. 36830 Audubon, Pa. 19407 

216-725-4560 800-633-8724 215-631-9052 



LONG ISLAND 

CO vIPUTER GENERAL STORE 

103 Atlantic Avenue 

Lynbrook. N.Y. 1 1563 

516-887-1500 



LONE STAR ELECTRONICS 

Box 488 

Manchaca, Texas 73652 

612-282-3570 



AIM-65 in the Ham Shack 



Have a field day with this message transmitter and keyer. 
It will accept and save messages to be broadcast auto- 
matically, as needed, in response to a single keystroke. 



Dr. Marvin L. De Jong 

Department of Mathematics 

and Physics 

The School of the Ozarks 

Point Lookout, MO 65726 




TO 
TRANSMITTER 



TO 
TRANSMITTER 



+5 V 



Figure 1: Buffer circuit to key the transmitter. 
Some transmitters may require the keying relay. 
Only two ICs, a 74LS00 and a 7402 are required to 
construct this interface and the keyer interface in 
Figure 2. Both ICs have pin 14 as + 5V and pin 7 as 
GND. 



Contest operating is a lot easier if 
standard messages such as "CQ CQ VQ 
DE KOEI KOEI K" can be sent auto- 
matically. The program listed in Table I 
in the AIM 65 disassembly format allows 
you to do just that. It has the following 
features: 

1) Three different messages, called 
A, B, and C, may be stored in one 
page of memory. The total number 
of characters, including spaces, 
may not exceed 256 characters. 

2) The messages are composed and 
edited using the AIM 65 keyboard. 
As the message is typed on the 
keyboard, it appears on the dis- 
play and scrolls left. The delete 
key allows corrections to be 
made. The carriage return key 
signals that the message is com- 
plete, and the display blanks in 
preparation for the next message. 

3) When all three messages are 
entered the display blanks again, 
and you enter your code speed in 
words per minute (in decimal). The 
code speed will remain displayed 
until new messages are entered 
by restarting the program. 

4) With the messages and code 
speed loaded, a depression of the 
A key will result in message A be- 
ing sent, the B key will cause the B 
message to be sent, and the C key 
will cause the C message to be 
sent. 

5) The code speed can be changed 
at the end of any message by 
pressing the S key. This display 
will blank, and a new code speed 
can be entered. 

6) A simple interface circuit and an 
interrupt routine allow the same 
program to be used as a keyer, 
operating at the same speed as 
the speed entered on the 
keyboard. You must provide pad- 
dle, or modify a bug to make the 
mechanical connections. 

7) Code speeds from 5 wpm to 99 
wpm are possible for the message 
sender and keyer, though it is 
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DOT 




Figure 2: Interface circuit for the keyer. All con- 
nections are to the Applications Connector on the 
AIM 65. 



unlikely that any of us will ever 
send 99 wpm with a keyer. 

Before illustrating how the program 
might be used, let me point out that a 
similar program for the K1M-1 is schedul- 
ed to appear in the September or Oc- 
tober issue of 73 Magazine, and the 
details of its operation are described 
there. Only a few features unique to the 
AIM 65 version will be given here. Also, 
most of the display routines have been 
described in a companion article in 
MICRO, and they will not be described 
again. 

Let me describe how the keyer and 
message sender might be used for Field 
Day. You would start the program, then 
load message A as follows: "CQ CQ CQ 
FD DE KOEI/0 KOEI/0 K" Expecting so- 
meone to respond to your CQ, message 
B would be "DEKOEIUR MO MO BK" 
To use message B, you would first send 
the other guy's call with the keyer and 
then hit key B on the keyboard. The 
blanks, spaces inserted by pressing the 
keyboard, would be filled by you, again 
using the keyer, to give the proper signal 
report. Message C might read "QSL ES 
TU OM" and would be sent after you 
received his signal report and section 
correctly. It would not be difficult to 
modify the program for sweepstakes or 



MAIN PROGRAM 
MODIFIED 7-16-79 
BY MICRO STAFF 



0200 
0200 
0201 
0203 
0206 
0208 
020B 
020E 
0211 
0213 
0215 
0217 
021 A 
021C 
02 1E 
0220 
0221 
0224 
0225 
0226 
0229 
022A 
022B 
022C 
022E 
0230 



78 

A9 A0 

8D 0C A0 

A9 01 

8D 00 A0 

8D 02 A0 

20 9B 03 

A2 00 

A0 00 

91 01 

20 3C E9 

C9 7F 

DO 10 

A9 20 

88 

99 00 01 

8A 

48 

20 85 03 

68 

AA 

18 

90 E9 

C9 5B 

F0 2A 



ORG 

SEI 

LDAIM 

ST A 

LDAIM 

STA 

STA 

JSR 

LDXIM 

LDYIM 

STYZX 

JSR 

CMPIM 

BNE 

LDAIM 

DEY 

STAY 

TXA 

PHA 

JSR 

PLA 

TAX 

CLC 

BCC 

CMPIM 

BEQ 



$0200 

$A0 

$A00C 

$01 

$A000 

$A002 

$039B 

$00 

$00 

$0001 

$E93C 

$7F 

$022E 

$20 

$0100 



$0385 



$0217 

$5B 

$025C 



0232 eg 
0234 F0 
0236 99 
0239 8A 
023A 18 
0238 89 
023E 20 
0211 20 
0211 68 

0215 AA 

0216 C8 

0217 DO 
0219 8A 
024A 18 
021B 20 
021E 20 

0251 68 

0252 AA 

0253 88 

0254 94 

0256 C8 

0257 E8 

0258 E0 
025A 90 
025C 20 
025F 20 
0262 20 

0265 18 

0266 20 

0269 20 
026C 68 
026D 38 
026E E9 

0270 0A 

0271 0A 

0272 0A 

0273 0A 

0274 85 
0276 20 

0279 18 
027A 20 
027D 20 

0280 68 

0281 38 

0282 E9 
0281 18 
0285 65 

0287 18 

0288 29 
028A 4A 
028B 85 
028D 4A 
028E 4A 
028F 18 
0290 65 
0292 85 

0294 68 

0295 29 
0297 65 
0299 85 
029B 38 
029C A2 
029E A9 
02A0 85 
02A2 A9 
02A4 85 
02A6 A5 
02A8 E5 
02AA 85 
02AC A5 
02AE E9 
02B0 85 
02B2 E8 
02B3 B0 



0D 
13 
00 01 



00 01 
72 03 
60 03 



CE 



9B 03 
60 03 



04 



03 
B9 

9B 03 
60 03 
3C E9 

72 03 
60 03 



30 



11 
3C E9 

72 03 
60 03 



30 
11 
FO 
10 



10 

10 

OF 
10 
10 

00 
94 
08 
04 
09 
08 
10 
08 
09 
00 
09 

F1 



CMPIM 


$0D 


BEQ 


$0249 


STAY 


$0100 


TXA 




PHA 




LDAY 


$0100 


JSR 


$0372 


JSR 


$0360 


PLA 




TAX 




INY 




BNE 


$0217 


TXA 




PHA 




JSR 


$039B 


JSR 


$0360 


PLA 




TAX 




DEY 




STYZX 


$0004 


INY 




INX 




CPXIM 


$03 


BCC 


$0215 


JSH 


$039B 


JSR 


$0360 


JSR 


$E93C 


PHA 




JSR 


$0372 


JSR 


$0360 


PLA 




SEC 




SBCIM 


$30 


ASLA 




ASLA 




ASLA 




ASLA 




STA2 


$0011 


JSR 


$E93C 


PHA 




JSR 


$0372 


JSR 


$0360 


PLA 




SEC 




SBCIM 


$30 


CLC 




ADCZ 


$11 


PHA 




ANDIM 


$F0 


LSRA 




STAZ 


$0010 


LSRA 




LSRA 




CLC 




ADCZ 


$0010 


STAZ 


$0010 


PLA 




ANDIM 


$0F 


ADCZ 


$0010 


STAZ 


$0010 


SEC 




LDXIM 


$00 


LDAIM 


$94 


STAZ 


$0008 


LDAIM 


$04 


STAZ 


$0009 


LDAZ 


$0008 


SBCZ 


$0010 


STAZ 


$0008 


LDAZ 


$0009 


SBCIM 


$00 


STAZ 


$0009 


INX 




BCS 


$02A6 
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02B5 86 


07 




STXZ 


$0007 


02B7 A9 


13 




LDAIM 


$13 


02B9 8D 


01 


Al 


STA 


$A401 


02BC A9 


03 




LDAIM 


$03 


02BE 8D 


05 


Al 


STA 


$A405 


02C1 A9 


90 




LDAIM 


$90 


02C3 8D 


OE 


AO 


STA. 


$AO0E 


02C6 20 


3C 


E9 


JSR 


$E93C 


02C9 58 






CLI 




02CA C9 


53 




CMPIM 


$53 


02CC FO 


8E 




BEQ 


$025C 


02CE AO 


00 




LDYIM 


$00 


02D0 C9 


1)1 




CMPIM 


$41 


02D2 FO 


OA 




BEQ 


$02DE 


02D1 C9 


12 




CMPIM 


$42 


02D6 FO 


05 




BEQ 


$02DD 


02D8 C9 


13 




CMPIM 


$13 


02DA DO 


EA 




BNE 


$02C6 


02DC C8 






INK 




02DD C8 






INY 




02DE B6 


01 




LDXZK 


$01 


02EO 20 


ED 


02 


JSR 


$02ED 


02E3 8A 






TXA 




02E1 D9 


01 


00 


CMPK 


$0001 


02E7 FO 


DD 




BEQ 


$02C6 


02E9 E8 






INX 




02EA 4C 


EO 


02 


JMP 


$02E0 








« SEND SUBROUTINE 


02ED 8A 






TXA 




02EE 18 






PHA 




02EF BD 


00 


01 


LDAX 


$0100 


02F2 AA 






TAX 




02F3 B5 


00 




LDAX 


$00 


02F5 FO 


1E 




BEQ 


$0315 


02F7 OA 






ASLA 




02F8 FO 


10 




BEQ 


$030A 


02FA 18 






PHA 




02FB BO 


06 




BCS 


$0303 


02FD 20 


1A 


03 


JSR 


$031A 


0300 4C 


06 


03 


JMP 


$0306 


0303 20 


33 


03 


JSR 


$0333 


0306 68 






PLA 




0307 ic 


F7 


02 


JMP 


$02F7 


030A A2 


02 




LDXIM 


$02 


030C 20 


38 03 


JSR 


$0338 


030F CA 






DEX 




0310 DO 


FA 




BNE 


$030C 


0312 68 






PLA 




0313 AA 






TAX 




0311 60 






RTS 










« DIT AND DAH 








« SUBROUTINES 


0315 A2 


01 




LDXIM 


$04 


0317 ic 


OC 


03 


JMP 


♦030C 


031A A2 


01 




LDXIM 


$01 


031C CE 


00 


AO 


DEC 


$A000 


03 1F 20 


38 


03 


JSR 


$0338 


0322 CA 






DEX 




0323 DO 


FA 




BNE 


$031F 


0325 AD 


00 


AO 


LDA 


$A000 


0328 1A 






LSRA 




0329 BO 


07 




BCS 


$0332 


032B EE 


00 


AO 


INC 


$A000 


032E E8 






INX 




032F tC 


1F 


03 


JMP 


$031F 


0332 60 






RTS 




0333 A2 


03 




LDXIM 


$03 


0335 ic 


IC 


03 


JMP 

v 


$031C 








« TIMER SUBROUTINE 


0338 A5 


07 




LDAZ 


$0007 



other contests. Any time you want to in- 
sert something in a message, 3e sure to 
leave enough time, in ASCII spaces, to 
key in the insert. You soon gel the hang 
of working so smoothly that no one will 
recognize your insert for what it is. 

Some notes about the program may 
be useful if you want to modify it for your 
own purposes. Instructions starting at 
$0200 and ending at $025F are used to 
load the three messages. The instruc- 
tions starting at $0262 and snding at 
$0285 are used to enter the code speed 
in decimal, convert the ASCII represen- 
tations to decimal numbers, and store 
the result in location $0011. Trie instruc- 
tions starting at $0287 and 3nding at 
$0299 are used to convert this decimal 
number to a hexadecimal number and 
store it in location $0010. The instruc- 
tions starting at $029B and ending at 
$02B5 are used to convert the ispeed to a 
number to be loaded into the divide- 
by-1024 timer. The remainder of the pro- 
gram tests for A, B, or C key depres- 
sions, and it calls on varous sub- 
routines to send the message If you do 
not want to use the AIM 65 as a keyer, 
then you may omit the interrupt routine. 

Note that in my program listings I us- 
ed page one, addresses $0100 and up- 
ward to store the message. I would not 
recommend this, but since I have only 
1K of memory, I could not usu $0400 to 
$04FF. If you have more than 1K of 
memory, I would urge you to change all 
the $0100 addresses in the program to 
$0400 or the page of your own choosing. 
These instructions are located at $0221, 
$0236, $023B, and $02EF. 

The interface circuits are shown in 
Figures 1 and 2. Figure 1 gives a circuit 
that simply buffers the output af the PB0 
pin to key my transmitter. A optional 
relay may be required for other trans- 
mitters. The NOR gates were used be- 
cause I needed a NOR gate in the keyer 
circuit, and the NOR gates allow you to 
OR your own keyer to the message 
sender circuit. The keyer circuit is shown 
in Figure 2. Basically it debounces the 
dot and dash paddle connections, and it 
may be reset with a pulse fron pin CB2. 

When the key is put in either the dot or 
dash position, a negative going signal is 
produced at pine one of th3 7402. A 
negative pulse on CB1 produces an in- 
terrupt, so the program jumps to pro- 
cess the interrupt routine. In the inter- 
rupt routine Port B is read (LDA A000), 
producing a negative pulse on CB2. This 
negative pulse will reset the cross- 
coupled NAND gates if the <ey is up, 
otherwise pin one of the 7402 will stay at 
logic zero. As long as it is at logic zero 
the program continues to serd dots (or 
dashes). Reading Port B also clears the 
interrupt flag on the 6522. A3 soon as 
PB6 is set to logic one by this negative 
pulse from CB2, the interrupt routine is 
completed and execution continues in 
the main program. ju 



033A 8D 97 A4 
033D 2C 97 A4 
0340 10 FB 
0342 60 



0343 48 

0344 8A 

0345 48 

0346 AD 00 A0 
0349 30 06 
034B 20 1A 03 
034E 4C 54 03 
0351 20 33 03 
0354 AD 00 A0 
0357 0A 

10 EC 



0358 
035A 68 
035B AA 
035C 68 
035D 40 



0360 

0360 A2 13 



0362 
0363 



8A 

48 

0364 BD 38 A4 
0367 09 80 
0369 20 7B EF 
036C 68 
036D AA 
036E CA 
036F 10 F1 
0371 60 



0372 8D 4C A4 
0375 A2 01 
0377 BD 38 Al 
037A CA 
037B 9D 38 A4 
037E E8 
037F E8 
0380 E0 15 
0382 90 F3 
0384 60 



0385 A2 12 
0387 BD 38 A4 
038A E8 
038B 9D 38 A4 
038E CA 
038F CA 
0390 10 F5 
0392 A9 20 
0394 8D 38 Al 
0397 20 60 03 
039A 60 



039B A2 13 
039D A9 20 
039F 9D 38 Al 
03A2 CA 
03A3 10 FA 
03A5 60 



STA $A197 

BIT $A197 

BPL $033D 
RTS 

1 

» INTERRUPT ROUTINE 



PHA 

TXA 

PHA 

LDA 

BMI 

JSR 

JMP 

JSR 

LDA 

ASLA 

BPL 

PLA 

TAX 

PLA 

RTI 

« DISPLAY 
« SUBROUTINU 

ft 

ORG 

LDXIM 

TXA 

PHA 

LDAX 

ORAIM 

JSR 

PLA 

TAX 

DEX 

BPL 

RTS 



$A000 
$0351 
$031A 
$0351 
$0333 
$A000 

$0316 



$0360 

$13 



$A138 

$80 

$EF7B 



$0362 



* MODIFY SUBROUTINE 



STA 



$A11C 



LDXIM $01 

LDAX $A138 

DEX 

STAX $A138 

INX 

INX 

CPX1M $15 

BCC $0377 

RTS 



« BACKSPACE 
« SUBROUTINE 



LDXIM $12 

LDAX $A138 

INX 

STAX 

DEX 

DEX 

BPL 

LDAIM $20 



$A138 



$0387 



STA 
JSR 
RTS 



$A138 
$0360 



« CLEAR SUBROUTINE 



LDXIM $13 

LDAIM $20 

STAX 

DEX 

BPL $039F 

RTS 



$A138 
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ATARI® PERSONAL COMPUTER 

CCI COMPUTER SYSTEMS DELIVERS. . .NOW!!! 




ATARI® 400™ 

PERSONAL COMPUTER 
SYSTEM 

PRICE INCLUDES: 

computer console 
basic Language cartridge 
BASIC Language programming 

Manual (Wliev) 
400 Operator s Manual with 

Note Book 
Power Supply 
TV Switch BOX 




$549" 



ATARI® 800™ 

PERSONAL COMPUTER SYSTEM 

t PRICE INCLUDES: 
Computer Console 
basic Language Cartridge 
Education System Master Cartridge 
basic Language Programming 

Manual (Wiley) 
800 Operator's Manual with Note Book 
atari 410 Program Recorder 
Guide to BASIC Programming Cassette 
8K ram Module* Power Supply 

TV switch Box 

99 



*999 J 



WE PROMISE TO DELIVER!!! 

• We GUARANTEE ship dates on prepaid Computer System orders. Send your orders in now!!! 

• if for reasons beyond our control we miss a ship date, we will REFUND the shipping and 
handling charges and give you a 10% DISCOUNT on any future software purchases for your 
ATARI® System.* 

• For prepaid system orders, get a free Accessory Controller of your choice. 

•Order must be prepaid by Cashier's Check made out to Computer Components of Orange County. 



ATARI USERS CROUP INFORMATION . . 


CALL (714) 891-2584 


PERIPHERALS AND ACCESSORIES 


ATARI® 810™ 


ATARI® 820™ 




ATARI® 410™ 


DISC DRIVE* $749.99 


PRINTER* $599.99 


PROGRAM RECORDER $89.99 


DISKETTES 


ACCESSORY CONTROLLERS 




ADD-ON MEMORY (800 ONLY) 


CX8100 BLANK DISKETTES' 
CX8101 DISK FILE MANAGER* 

55.00 /ea. 


CX2C-01 DRIVING CONTROLLER PAIR 
CX30-04 PADDLE CONTROLLER PAIR 
CX40-04 JOYSTICK CONTROLLER PAIR 

519.95/ea. 

SOFTWARE 




CX852 8K RAM MEMORY MODULE $124 99 
CX85316K RAM MEMORY MODULE $249 99 


ROM CARTRIDGES 


GAMES $49.99/ 


ea. 


APPLICATION $69.99 


CXL4001 EDUCATION SYSTEM MASTER 
CARTRIDGE $34.99 

KEY: (j) = uses joystick controller 
(pi = uses paddle controller 
Id) = uses driving controller 


CXL4004 BASKETBALL 

CXL4005 LIFE 

CXL4006 SUPER BREAKOUTTM 
CX4008 SUPER BUGTM-* 


in 
id 
ipi 

(d) 


CXL4002 ATARI BASIC 

CXL4003 ASSEMBLER DEBUG" 

CXL4007 MUSIC COMPOSER 

CXL4009 COMPUTER CHESS*' l|> 


EDUCATION SYSTEM CASSETTE PROGRAMS $39.99 /ea. 




BASIC GAME AND 
PROGRAM CASSETTES 


CX6001 U.S. HISTORY 
CX6002 U.S. GOVERNMENT 
CX6003 SUPERVISORY SKILLS 
CX6004 WORLD HISTORY (WESTERN) 
CX6005 BASIC SOCIOLOGY 
CX6006 COUNSELING PROCEDURES 
CX6007 PRINCIPLES OF ACCOUNTING 
CX6008 PHYSICS 


CX6009 GREAT CLASSICS (ENGLISH) 
CX6010 BUSINESS COMMUNICATIONS 
CX6011 BASIC PSYCHOLOGY 
CX6012 EFFECTIVE WRITING 
CX6013 AUTO MECHANICS 
CX6014 PRINCIPLES OF ECONOMICS 
CX601 5 SPELLING 
CX6016 BASIC ELECTRICITY 
CX6017 BASIC ALGEBRA 




CX4101 GUIDE TO BASIC PROGRAMMING* 
CX4102 BASIC GAME PROGRAMS* 

$29.95/ea. 

•October Delivery • "November Delivery 

—Prices subject to change .— 



COMPUTER COMPONENTS OF ORANGE COUNTY 

6791 Westminster Ave., Westminster, CA 92683 714-891-2584 Telex 182274 

Hours: Tues-Fri 11-.00 AM to 8:00 PM— Sat 10:00 AM to 6:00 PM— Sun 12:00 to 4:00 PM (Closed Mon) 

Master Charge, visa, B of A are accepted. Allow 2 weeks for personal check to clear. 

Add $2.00 for handling and postage. For computer systems please add $10.00 for shipping, 

handling and insurance. California residents add 6% sales Tax. 

• MAIL ORDER LINE (714) 891-2587 or TELEX 182274. 



VAN NUYS 
(213)786-7411 



BURBANK 
(213)848-5521 



LAWNDALE 
(213)370-4842 



ORANGE COUNTY 
(714)891-2584 



IRVINE 
(714)891-2589 



in Southern California we re Number One!! 

COMPUTER COMPONENTS (CCI) OF OR/iNCE COUNTY, your fUll 

support computer store presents the finest in personal computers 

send for our 36 page fully illustrated catalog s 3 00 . Save 50C by sendir g the top one inch of this ad with your order. 




AN INDUSTRY STANDARD 



tippkz computer 



Apple ll or 
Apple ll Plus 
with 16K 

s 1195 




SPECIAL 

13" Color TV 

compatible 

with Apple ll 

only 99 00 

with system 

purchase 



apple ll will change the way you think about computers. 
That's because it is specifically designed to handle the 
day to day tasks of education, financial planning, 
building security, scientific calculation, and 
entertainment. APPLE ll is appealing and comfortable 
(like other appliances that make your life easier); and it 
brings to personal computing a new level of simplicity 
through hardware and software sophistication. 




INTERFACE C/ RDS 

Prototyping/ lobby Card S 24.00 

Parallel Prlnti r interface card 180.00 
Communlcatl )ns Card & 0825 

Connector C .tile 225.00 

Hlgn-Speed 5c rial interface card 195.00 
Language Sys em wltn Pascal 

(48K RAM & o isk ll Required) a95.00 

Applesoft ii H mwarecard 200.00 

16 input Anali g Card 295.00 

ACCESSORIES 

Disk ll— Drive i mlv a95 00 

Disk ll— Drive 1 Controller (32#c Mln. 

RAM Recomr iended) 595.00 

Ylnvl carrying case 30.00 

TapeRecordei ao™ 

Programmers Aid no. 1 Firmware iFor 

use with intiger8A5lO 50.00 

Clock /Caiendir Card 19900 

Auto— Start R )M Package iFor 

Apple II Only 55.00 

Dlglkltlzer Pa<IDyTalos 

(Wtform) 499.00 

High ftesoluti( n Light Pen 199.00 

Micromodem DC. Haves) . 379.00 

1 2" B/WLeeO'-x Monitor 149 oo 

CaDle from Mi nltor to Apple ll 995 

13" Color TV compatible wltn 

Apple II 290.00 

Sup-ft-Modula or(RF) 25.00 

SOFTWARE FC R APPLE II 
PASCAL from ( rogramma 49.95 

fORTH 4995 

LISP— from Ap jie Software Bk no. 3 N ; C 

LISA— interact ve disk assembler 34.95 

whatsit— Exc !llent conversational data 

basemanagtr 32K 100.00 a8)ti25.00 

5ARGON-cnam j of 2nd west coast 

CompueerFa re 19.95 

apple Pie— €x retlent textedltor 24.95 

forte— Music id (tor In hires 19.95 

FASTCAMMON -Excellent backgammon 

game with giaphlcs Tape20.00 Disk 25.00 
APPLE 21— Ext silent Olackjack game 9.95 

8RIOCE CHALLI NCER— Computer Bridge 14.95 
FINANCIAL MA WCEMENT SYSTEM 

• Accounts Pa /able • Ledger processing 

• Accounts Re zelvable • Payroll 

• inventory .ntrol • S800 Complete 

• S200 Eacn P tckage • 510 for Manual 



PRINTER SPECIALS FOR APPLE AND PET 
TRENDCOM 100 wltn Interface for 

AppleorPET 450 00 

UTE PEN used wltn TV or monitor 

screen 34.95 

ALF Music Syntnesi2er Boards 265.00 

Supertaiker 279.00 

Anadex DP-8000 with tracter 

8" paper width and interface 

roAppie 1050.00 

Centronics 779-2 for Apple ii 

wltn parallel interface 1 245 oo 

SOFTWARE (Send for complete software 

Catalog Si. 00) 

Dow Jones Portfolio Evaiuator/ 

Stock Ouote Reporter Disk 50.00 

Microcness 2.0 Chess Disk 25.00 

Disk utility Pack wltn DOS 3.2 25 oo 
The Controller (General Suslness 

System) 625.00 

Apple Post (Mailing List System) 49.95 

Bowling Program Diskette 15.00 
The cashier (Retail Store Management 250.00 

Checkbook cassette 20.00 
Applesoft 11 Language & Demo 

cassette 20.00 

RAM Test Tape with Manual 7.50 

Finance 1-2 Cassette Package 25 00 
Datamover/Teiepong Cassette 

(com. card & Modem Rea d) 7 50 

Mlcrochess 2.0 Chess Tape 20 00 

Bowling Program Tape 15 00 
Pascal with Language system 

148k RAM & Disk ll Required! 495.00 

MISCELLANEOUS 

vinyl Diskette Holder Pages 
IPkgof 10) 8.50 

Diskette Boxes iba Plastic) 4 50 

OlsketteslS) 
Apple (Box of 101 50 .00 

Verbatim (Box of 10) 34 00 

DysanlBoxof 5) 25 00 

Decais 1 Rain bow Apple) 
inside window a") 10c 

outside window (2) 10c 

Outside window <T'i 5c 

Apple Logo (RalnbowiT-Shirts 6 00 

Specify— Men, women, or cnnd Ismail, 
medium, or large) 



Reference Books for Apple and PET Owners 

Programming Manual (MOSTEK) $12.00 

Hardware Manual (MOSTEK) 12.00 

Programming the 6502 (ZAKS) 9.95 

6502 Application BOOk (ZAKS) 12.95 

Programming a Micro Computer: 6502 (FUSTER) 9.95 

PET Owners Only . 

PET user Manual $9-95 

Hands on BASIC with a pet 14.95 

PET Machine Language Guide 9.95 



Apple Owners Only 

Apple ll Reference Manual $10.00 

Apple Soft Manual 10.00 

Programme's Guide (computer Station) 5.95 

Apple ll Monitor Peeled 9. 95 

Software D rectory for Apple 

• Business, Finance & utility * 95 

• Games, Demo, Utility 4.95 

Best of com act 78 2.50 

Programming In PASCAL (Grogono) 990 



A PROFESSIONAL BUSINESS SYSTEM 

^commodore ^^ E3 |\J| 




2001 -16B 


CBM 2040 


CMB 2022 


$995 


$1295 


$995 


Also 


Also 


Also 


2001-8 $795 


External 


CBM 2023 


2001-1 6N . . .$995 


cassette $95 


printer $849 


2001 -32N . $1295 


PET to IEEE 


IEEE to IEEE 


2001-32B .$1295 


Cable $39.95 


Cable $49.95 



• * Retrofit kit required for operation with PET 2001 -8. 



ACCESSORIES FOR PET 

commodore PET Service Kit $30.00 

Beeper— Tells when tape Is Loaded 24.95 

Petunia- -Play music with PET 29.95 

Video Bu =fer— Attach another display 29.95 

combo- Petunia and video Buffer 49.95 

SOFTWARE FOR PET 



Mirrors at id Lenses 19.95 

The State; 14.95 

RealEstatai &2 59.95 

Momentum and Energy 19.95 

Projectile Motion 19.95 

Mortgage 14.95 

Dowjone; 7.95 

Petunia P aver Sftwr . .14.95 
PI js many more. Send for 



Checkers and Baccarat 7.95 

Chess 1995 

Series and Parallel 

Circuit Analysis 19.95 

Home Accounting 9.95 

BASIC Math 29.95 

Game Playing with basic 
vol. i, ll. ill 995 each 

Software catalog $1.00. 



—Prices subject to change— 



COMPUTER COMPONENTS OF ORANGE COUNTY 

6791 Westminster Ave., Westminster, ca 92683 714-891-2584 Telex 182274 

Hours: Tues-Fri 11:00 AM tO 8:00 PM— Sat 10:00 AM tO 6:00 PW— Sun 12:00 tO 4:00 PM (Closed Mon) 

Master Charge, Visa, B of A are accepted. Allow 2 we< ks for personal check to clear. 

Add $2 00 for handling and postage. For computer syste ns please add $10.00 for shipping, 

handling and insurance. California residen :s add 6% Sales Tax. 



^v 



nafc ali>aa 



Stephen Bach of Rt 2, Box 50A1, Scottsville, VA 
reports that the 21 Hour AIM Clock program on 
MICRO 10:7 should contain F8 (SED) at location 
0305, rather than 38 (SEC) "as published. 

Lt. Robert Carlson speculates that his article 
on A Baudot Teletype Driver for the APPLE II in 
MICRO 14:5 was mutilated by" the editorial staff.; 
It's true: location 0370 should contain 68 
(R0RA), rather than 6E CROR), and the spurious : 
operand bytes at;037D and. 037E should be removed 
to close up the code. In addition, the follow- 
ing lookup table should follow the program code, 
beginning at location 03&1, immediately -afier'7 
the RTS which moved upward two bytes: 



0381- 


02 45 0A 41 20 53 49 




0388- 


55 0D 44 52 4A 4E 46 


43 


0390- 


4B 54 5A 4C 57 48 59 


50 


0398- 


51 4F 42 m 06 4D 58 


56 


03A0- 


00 99 33 99 2D 99 07 


38 


03A8- 


37 03 24 3:4 27 2C 21 


3A 


03B0- 


28 35 22 29 32 23 36 


30 


03B8- 


31 39 3F 26 99 2E 2F 


3B 


03C0- 


99 00 00 CO 00 





Roger Cohen, 100 Nimbus Road, Holbrook, NY 11741 
reported the same editorial slip-up. 

Several readers reported problems with the 
AMPERSORT article on MICRO 14:41. 6 * Lewis 
Scott of 6220 Colchester Place, Charlotte, NO 
28210 sent in seven corrections to the assembly, 
language source: 



Line 


0370 


should 


be 


5201- 


20 


E7 


54 


Line 


0400 


should 


be 


5207- 


DD 


2D 


55 


Line 


1180 


should 


be 


5298- 


BD 


33 


55 


Line 


1240 


should 


be 


52A5- 


20 


OA 


55 


Line 


2810 


should 1 


be 


53CA- 


20 


C2 


54 


Line 


2870 


should 


be 


53D8- 


20 


c2 


54 


Line 


3320 


should: 


be 


5425- 


20 


0A 


55 



and Mr. Scott noted some additional problems 
once he got the program running. William G.. 
Trawick of the Georgia. State University Depfe. 
of Chemistry in Atlanta, GA 30033 reported 
some of the same microbes. Mark, Crosby of 
Washington APPLE Pie and 1373 E Street SE, 
Washington DC 20003 is also working on these 
difficulties. Alan G. Hill, the author of 
AMPERSORT, is collating corrections to these 
problems , most of which developed when last 
minute enhancements were integrated into the 
source, if you nave keyed in AMPERSORT, save 
that tape! Any final patches will appear next 
month. 



Peter J. S] eggs of 1208 Half Moon Lane;, Oakville 
Ontario L6F 2E5 reports that the EKIM Extension 
to the KIM monitor in MICRO 11:20 will not 
perform as expected in the autoincrement and 
branch mod«s. He suggests changing 17B>1 from 
B0 AD (BCS START) to BO B4 (BCS GETKJ. Mr. 
Sleggs included an insightful enhancement to 
this routire; however , another very elegant 
enhancement arrived from 

Gary A .Foe te reports that his article on Sort- 
ing with tte APPLE, in MICRO 13:22, should have 
line 8Q reading: 

80 I=J=K=L=M=X=T=Z=LL=II=LM=HM=W=N 
whereas, ir the original article, the "N" was 
inadvertent ly omitted. Also, for 48K system 
operation, line 90 should be changed so that it 
does not eaceed the 32767 limit. It should be: 
90 LMrPEEK ( 204 ) +PEEK (205 ) «256 : HM= 32767 

Ralph W.Ltiper of 18 Alberta Street, Windsor 

Locks, CT C 4096 noticed a microbe in Harmonic 

Analysis fcr the APPLE, MICRO 13:5, which works 

perfectly inless one of the harmonics happens 

to be off scale. His fix is easy. Change line 

1290 and 1:00 to read: 

1290 S=70: REM SETTING INITIAL SCALE 

1300 PRINT: PRINT: PRINT "PLOT OF INPUT DATA 

CALCIUATED TO FIFTH HARMONIO Y AT 100 

= ";T: H-0: HGR 
He also mace the following changes to improve 
readabilitj of the graphics output: 
Add: 1325 HPLOT 0,79 
Chg: 1360 HPLOT TO k, 79- Y 
This plots the original curve as a solid line 
which will stand out from the harmonics. 

William 0. Taylor writes of an error in his 
article, Tie Basic Morse Keyboard, MICRO 13:13. 
The tone beard schematic ha3 output from the 
computer ai d +5 V power reversed! Exchange PB0 
and +5 v tc correct. Although the parts list 
shows a 50 yf cap while the schematic shows 
35' yf for £ 2, either value will work. Finally, 
line 5 of 1 he BASIC program should include 
keyword PR] NT before the output string. 

The article, APPLE II Serial Output Made Simple 
in MICRO IS: 5 contains a full page of extran- 
eous code <m 15:7. All of page 15:7 should be 
removed front, this article. This was another 
example of editorial staff confusion, hopefully 
exhausting our quota for many months. 

You may wr..te or telephone MICRO to obtain the 
current status of any published program. 
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Speech Processor for th€> PET 



A speech processor unit samples audio 
waveforms and digitizes the input signal. 
Digitized speech can be stored, catalog- 
ed, processed as discrete data, and out- 
put through a D/A converter. The output 
speech quality rivals that of a CB radio. 



Charles R. Husbands 

24 Blackhorse Drive 

Acton, MA 01720 



Within the past year a low cost speech 
processor unit has appeared on the 
market. This device designed for the 
computer hobbyist can be used in a 
variety of applications from voice aug- 
mentation to computer games to direct 
computer-to-phone modem implementa- 
tions. 

This article will briefly describe the 
device and how the unit can be inter- 
faced to a PET computer. A software 
driver program capable of storing the 
digitized sound, playing it back, saving 
the processed information on cassette 
files, and then reloading it will also be 
presented. The article will conclude with 
an illustration of how this device might 
be used with a home computer system. 

The Speech Processor Unit 

The speech procesor unit used in this 
article is the DATA-BOY™ Speech Pro- 
cessor developed by Mimic Electronics 
Company. This processor is an extreme- 
ly low-cost audio signal processing sys- 
tem designed for the hobbyist. The 
speech processor is essentially a 
speech "digitizer" which uses a proprie- 
tary signal processing technique to con- 
vert the human voice into a single bit 
stream, and vice versa. "Digitized" 
speech is typically thought of as speech 
which has been sampled with an analog- 
to-digital form, and then reconverted to 
analog form by a digital-to analog (D/A) 
converter. 

By using certain characteristics of the 
speech waveform, especially the fact 
that the amplitude components tend to 
decrease with increasing frequency, the 
resolution of the A/D and D/A converters 
required can be decreased from, say, 8 
bits down to a single bit while main- 
taining intelligibility. When this bit 
stream is sampled at a rate of 8000 
samples per second, highly intelligible 
speech can be obtained. The speech 
quality is close to that which is given by 
a CB radio. 

Speech Processor Interface 

Figure 1 describes the components 
necessary to support the speech pro- 
cessor and its interface with the PET 
Computer. To digitize and then repro- 
duce speech the speech processor unit 
requires the use of an additional 



speaker, microphone and power supply. 
The speech processor unit is designed 
on a 3 inch by 5 inch printed circuit 
board. The author's unit was built into a 
9 by 5Vi inch box which also contained 
the power supply. The simple power sup- 
ply design was taken directl/ from the 
users manual provided with he speech 
processing unit. 

In addition to the interfaces shown in 
Figure 1, the author added two addi- 
tional features to his unit. To determine 
when the squelch threshold level was ex- 
ceeded one side of alight emitting diode 
was connected to the DATA F EADY line. 
The other side of the LED was con- 
nected to the +5 volt supply through a 
300 ohm registor. When the squelch 
threshold level is exceeded the DATA 
READY line goes low and LEI) glows. 

A computer bypass switcr was also 
added to the author's unit. This switch 
allows the TO COMPUTER and FROM 
COMPUTER lines to be directly inter- 
connected or interfaced to the com- 
puter. This feature allows tie speech 
processor system to be tested indepen- 
dent of the computer. It also allows the 
user to demonstrate the diffeience in in- 
telligibility produced by the :omputers 
quantization effects. 

The Speech Processor Unit is inter- 
connected to the PET Computer by three 
lines. Each line is accompanied by a 
ground to provide some degree of shield- 
ing. The TO COMPUTER lire is con- 
nected to PA0 (Pin C) on the USER Con- 
nector. This line will be sampled by the 
processor at the proper da a rate to 
quanitize the input data steam. The 
digital output data stream wil be return- 
ed to the speech processor l nit on the 
line marked FROM COMPUTER. This line 
is attached to PA7 (Pin L) on the USER 
Connector. A third line termec the DATA 
READY line is used to indicale if the in- 
put signal level exceeds the threshold 
established in the speech processor 
unit. The DATA READY line is :onnected 
to PA1 (Pin D) on the PET USER Connec- 
tor. 

Software Description 

The software used to drive the speech 
processor device is written in two parts: 
A User Interface Program written in 
BASIC and a pair of Speech Processor to 



Computer Interface Programs written in 
machine language. The User Interface 
Program is designed to allow the user to 
interact easily with the speech pro- 
cessor. This program provides four user 
options: RECORD, PLAYBACK, SAVE 
and LOAD. 

The RECORD Program calls one of the 
machine language interface programs 
which samples the state of the speech 
processor bit stream and stores the 
sampled input data into sequential loca- 
tions of buffer memory. 

The PLAYBACK process is the direct 
counterpart of the RECORD process. In 
this mode each word in the buffer 
memory is unpacked and returned to the 
speech processor to reproduce the 
speech data examined during the RE- 
CORD sequence^JThe PLAYBACK pro- 
cess like the RECORD process calls a 
supporting machine language program. 

The SAVE routine is a data file storage 
program which allows the user to save 
all or some portion of the recorded data 
on tape for later use. 

The LOAD routine is a data file 
retrieval program which allows digital 
date files stored on tape by the SAVE 
program to be restored into the com- 
puters memory. Both the SAVE and 
LOAD routines allow the user to design- 
ate the beginning and ending address of 
the data to be manipulated. With this 
facility data words stored in memory can 
be saved and rearranged in order to 
build a data base where the beginning of 
each utterance or sound is uniquely 
defined. 

An illustration of the memory map 
organization used to support the speech 
processor unit is shown in Figure 2. 
From this map it can be seen that the 
machine language programs required to 
support the BASIC programs are stored 
in tape buffer #2. In order to establish 
sufficient buffer memory to store the 
digitized speech information, a cap was 
placed on the BASIC program. By forc- 
ing the BASIC Interpreter into thinking it 
is operating with a 4K memory limita- 
tion, the upper 4K of memory can be us- 
ed for storing the recorded digitized 
speech. A small number of bytes in zero 
page working storage are used for pass- 



September, 1979 



MICRO — The 6502 Joi rnal 



16:35 



0010: REM »« SIMPLE VOICE PROCESSOR PROGRAM 

0020: HEM 

0030: REM BY CHARLIE R. HUSBANDS 

0040: REM 

0050: PRINT" 

0060: ?RINT"***VOICE PROCESSOR PROGRAM*** 

0070: PRINT 

0080: POKE 135,12 

0090: DATA 169,00,141,67,232,133,54,133 

0100: DATA 56,168,169,08,133,55,169,12 

0110: DATA 133,58,169,12,133,57,169,30 

0120: DATA 133,59,78,79,232,38,54,198 

0130: DATA 55,165,55,240,11,165,58,170 

0140: DATA 202,138,208,252,234,76,84,03 

0150: DATA 234,165,54,145,56,234,200,169 

0160: DATA 08,133,55,152,208,220,230,57 

0170: DATA 165,57,197,59,208,212,96,00 

0180: DATA 169,255,141,67,232,169,00,133 

0190: DATA 56,168,169,08,133,55,169,12 

0200: DATA 133,58,169,12,133,57,169,30 

0210: DATA 133,59,177,56,141,79,232,234 

0220: DATA 165,58,170,202,138,208,252,234 

0230: DATA 198,55,165,55,240,07,14,79 

0240: DATA 232,234,76,162,03,200,177,56 

0250: DATA 141,79,232,169,08,133,55,152 

0260: DATA 208,222,230,57,165,57,197,59 

0270: DATA 208,214,96,234,234,234,234,234 

0280: DATA 169,00,141,67,232,173,79,232 

0290: DATA 36,60,208,244,76,58,03,234 

0300: A=826 

0310: FOR 1=1 TO 168 

0320: READ DJ 

0330: POKE A,DJ 

0340: A=A+1 

0350: NEXT I 

0360: PRINT"****************************** 

0370: PRINT" PRESS R FOR RECORD" 

0380: PRINT" PRESS P FOR PLAYBACK" 

0390: PRINT" PRESS S FOR SAVE" 

0400: PRINT" PRESS L FOR LOAD" 

0410: PRINT"****************************** 

0420: GET C$:IF C$="" GOTO 420 

0430: IF C$="R" GOTO 600 

0440: IF CJ="P" GOTO 700 

0450: IF C$="S" GOTO 800 

0460: IF C4="L" GOTO 900 

0470: GOTO 420 
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Figure 3: Speech processor flowchart 
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Figure 1: Speech processor components 
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ing variables between the machine 
language programs and their BASIC 
counterparts. 

The Record Program 

The RECORD process is entered by 
pressing "R". This action causes the 
pointing vector corresponding to the 
beginning address of the RECORD 
machine language program to be placed 
into locations 1 and 2. A value of 02 is 
also placed in decimal location 60, 
which is the squelch mask value to be 
used in the machine language routine. 
The machine language program is then 
entered by executing the USR instruc- 
tion. 

A flow diagram of the RECORD Pro- 
gram is shown in Figure 3 and a machine 
language listing of the process is also 
given. After initialization, the program 
loops waiting for the DATA READY line 
to go low. This action occurs when the 
amplitude of the voice level exceeds the 
squelch threshold set on the speech pro- 
cessor board. Once the squelch level is 
sensed, the program proceeds and the 
record program initialization com- 
mences. 

A machine language listing of the 
SQUELCH Process is shown. If the user 
wishes not to implement the squelch 
test, the values in line 610 of the pro- 
gram can be changed to: 

610 POKE 01, 58 : POKE 02,03 
and the record program will be entered 
directly. 

After initialization the record process 
beings. The value of TO COMPUTER line 
is sampled at PA0 of the user's port and 
stored into the LSB of the buffer location 
DATAWD. A counter (BITCNT) is then 
tested to see if 8 samples have been 
sensed. If 8 samples have not yet been 
sensed, DATAWD Is shifted left one 
place and a delay loop is executed 
before the value of the next bit is sampl- 
ed. When a full byte of data has been 
received, the byte is stored away in the 
next memory location. The values of 
DATAWD and BITCNT are reinitialized. A 
short delay loop is executed and the pro- 
cess is repeated. 

At the time that DATAWD is stored 
away the location into which it is being 
stored is checked against an upper 
bound pointer in memory. When the two 
address correspond, the process has 
run out of available buffer space for the 
record process and the machine 
language routine returns control to the 
BASIC program. Completion of the RE- 
CORD process is indicated by the line 
"RECORD PROCESS COMPLETED" ap- 
pearing on the display screen. 

Playback Program 

The PLAYBACK program is entered by 
pressing "P". This action forces the 
pointing vector corresponding to the 



beginning address of the playback 
machine language program tc be placed 
into locations 1 and 2. The machine 
language program is then entered by the 
execution of the USR instruction. A flow 
diagram of the PLAYBACK program is 
shown in Figure 4. A machine language 
listing of the PLAYBACK prog 'am is also 
given. 

The PLAYBACK program rjpeats the 
same basic process developed in the re- 
cord process. As each new byte is 
retrieved from the buffer memory, the 
state of the most significant bit is out- 
putted to the speech processor unit. 
After a finite delay, the DATAWD is 
shifted left one position and the state of 
the new MSB is sent to the speech pro- 
cessor. When all the bits have been ex- 
amined, the next byte in buffsr memory 
is retrieved. When all of the bytes in the 
data buffer memory have been examin- 
ed, the PLAYBACK process is completed 
and .the message "PLAYBACK PRO- 
CESS COMPLETED" appea's on the 
monitor screen. 

Save Process 

The SAVE process is a EiASIC pro- 
gram written to allow the user to dump 
portions of the buffer memo-y on tape 
for later use. The process is sntered by 
pressing "S". A prompting message 
asks the user to enter the desired star- 
ting address and ending address in buf- 
fer memory to be saved. The contents of 
the memory locations between the two 
selected locations is then written on 
tape and upon completion of :his opera- 
tion the message "SAVE PROCESS 
COMPLETED" appears on the: monitor. 

Load Process 

The LOAD program is also a BASIC 
routine designed to load into memory a 
tape prepared by the SAVE piogram. To 
enter the LOAD process the user 
presses the "L" key. A message will 
prompt the user to enter the slarting and 
ending address of the data file to be 
stored. When the LOAD process is com- 
pleted the message "LOAD PROCESS 
COMPLETED" will appear on the screen. 

Typical Application 

For an illustration of how these pro- 
grams might be employed, let's assume 
the user wants to have his computer 
automatically dial up telephone numbers. 
Using the speech processor and the RE- 
CORD process, each dual tore multiple 
frequency (DTMF) output is recorded 
from a standard touch tone telephone. 
As each tone is recorded, a ds.ta file can 
be written using the SAVE pre gram. The 
starting locating for each tone would be 
the beginning of buffer memory. The en- 
ding address could be set at the beginn- 
ing of memory plus, say 200 bytes. After 
all ten tones have been recorded, the 
data files collected by the :3AVE pro- 
gram can be stacked consecutively on 



600 REM. .RECORD MODE 

610 POKE 01,210: POKE 02,03 

615 POKE 60,02 

620 LET X-USR(R) 

630 PRINT" RECORD PROCESS COMPLETED" 

640 GOTO 420 

700 REM. . PLAYBACK MODE 

710 POKE 01,130: POKE 02,03 

720 LET X=»USR(R) 

730 PRINT" PLAYBACK PROCESS COMPLETED" 

740 GOTO 420 

800 PRINT"**SAVE PROCESS INTIATED" 

805 INPUT" FILE NAME"; NS 

810 INPUT" INPUT STARTING ADDRESS"; S 

820 INPUT" INPUT ENDING ADDRESS"; 2 

825 POKE 243,122: POKE 244,02 

830 OPEN 1,1,1,N$ 

840 FOR 1=0 co (E-S) 

850 PRINT #1,PEEK(S+I) 

860 NEXT I 

870 CLOSE 1 

880 PRINT"**SAVE PROCESS COMPLETED**" 

890 GOTO 420 

900 PRINT"**L0AD PROCESS INITATSD" 

905 INPUT" FILE NAME"; N$ 

910 INPUT" INPUT STARTING ADDRESS"; S 

920 INPUT" INPUT ENDING ADDRESS"; E 

925 POKE 243,122:POKE 244,02 

930 OPEN 1,1,0,N$ 

940 FOR 1=0 co (E-S) 

9 50 INPUT #1,A 

960 P0KE(S+I),A 

970 NEXT I 

980 CLOSE 1 

990 PRINT"**LOAD PROCESS COMPLETED**" 

99 5 GOTO 420 

1000 END 



200 byte boundaries using the LOAD 
program. We would now have a data base 
. in buffer storage with each tone starting 
and ending on a known boundary. 

In order to now dial any number, a 
small BASIC program wouid be required 
to call the PLAYBACK program with the 
appropriate starting boundary and en- 
ding boundary addresses in the required 
sequence. The resulting tones devel- 
oped through the speech processor 
would then be acoustically coupled to 
the telephone to complete the process. 

Conclusions 

This paper was designed to illustrate 
how a low cost speech processor might 
be interfaced with a PET Computer. 
However, the same machine language 
software could be used to interface the 
device to any 6502 based processor with 
only slight modifications. The use of 
BASIC in this application provided an 
easy method of mechanizing the man- 
machine interface. The application of 
voice or sound feedback in computing is 
almost limitless and it is hoped that this 
article illustrates one method of achiev- 
ing this goal. ^ 
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A Warning: 

The MflCROTcfl™ 

is for Professional 
Programmers — and Very 
Serious Amateurs — Only 

Now. a machine language pro- 
gramming powerhouse for the 
knowledgeable programmer who 
wants to extend the PET's capa- 
bilities to the maximum. The 
MacroTeA, the Relocating Macro 
Text EditorAssembler from Skyles 
Electric Works. 

The Skyles MacroTeA is a super 
powerful text editor. 26 powerful 
editing commands. String search and 
replace capability. Manuscript feature 
for letters and other text. Text loading 
and storage on tape or discs. Supports 
tape drives, discs, CRT, printers and 
keyboard. 

The Skyles MacroTeA is a relocating 
machine language assembler with true 
macro capabilities. A single name 
identifies a whole body of lines. You 
write in big chunks, examine, modify 
and assemble the complete program. 
And, when loading, the MacroTeA goes 
where you want it to go. Macro and 
conditional assembly support. Auto- 
matic line numbering. Labels up to 10 
characters long. 

The Skyles MacroTeA is an enhance 
Monitor. 11 powerful commands to 
ease you past the rough spots of 
program debugging. 

The Skyles MacroTeA is a warm 
start button. Over 1700 bytes of 
protected RAM memory for your object 
code. 

There's no tape loading and no 
occupying of valuable RAM memory 
space: The Skyles MacroTeA puts 10K 
bytes of executable machine language 
code in ROM (from 9800 to BFFF — 
directly below the BASIC interpreter). 
2K bytes of RAM (9000 to 97FF). 

Like all Skyles Products for the PET, it's practically plug in 
and go. No tools are needed. And, faster than loading an 
equivalent size assembler/editor from tape, the MacroTeA is 
installed permanently. 

The Skyles MacroTeA: 11 chips on a single PCB. Operates 

interfaced with the PET's parallel address and data bus or with 

the Skyles Memory Connector. (When ordering, indicate if the 

MacroTeA will interface with a Skyles Memory Expansion 

System. You can save $20.) Specifications and engineering are 

up to the proven Skyles quality standards. Fully warranted for 90 

days. And, as with all Skyles products, fully and intelligently 

documented. 

VISA, Mastercharge orders call (800) 227-8398 (Except Calif.) 
California orders please call (415) 494-1210. 

Skyles Electric Works 

10301 Stonydale Drive, Cupertino, CA 96014, (408) 735-7891 
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039E 


8D 


4F E8 




STA 


PAD 


AND PLACE IN OUTPUT SEG 


03A1 


EA 






NOP 






03A2 


A5 


3A 


DLY2 


LDA 


DLYCNT 


DELAY TO ESTABLISH 


03 A 4 AA' 






TAX 




8KHZ RATE 


03A5 


CA 






DEX 






03A6 


8A 






TXA 






03A7 


DO 


FC 




BNE 


DLY2 


+03 


03A9 


EA 






NOP 






03AA 


C6 


37 


LOOP 2 


DEC 


BITCNT 




03AC 


A5 


37 




LDA 


BITCNT 




03AE 


FO 


07 




BEQ 


STRG2 




03E0 


OE 


4F E8 




ASL 


PAD 




03B3 


EA 






NOP 






03B4 


4C 


A2 03 




JMP 


DLY2 




03B7 


C8 




STRG2 


1NY 






03B8 


B1 


38 




LDAIY 


WDB 




03 BA 


8D 


4F £8 




STA 


PAD 




03BD 


A9 


08 




LDAIM 


$08 




03 BF 


85 


37 




STA 


BITCNT 




03C1 


98 






TYA 






03C2 


DO 


DE 




BNE 


DLY2 




03C4 


E6 


39 




INC 


WDB 


+01 


03C6 A5 


39 




LDA 


WDB 


+01 


03C.8 C5 


3E 




CMP 


ENDBUF 




03CA 


DO 


D6 




BNE 


DLY2 




03CC 


60 






RTS 






SYMBOL 


TABLE 


2000 2066 






BITCNT 


0037 


DATAWE 


0036 


DLYCNT 003A DLYQ 035F 


DLYR 




03A2 


ENDBUF 


003B 


INITQ 033A INITR 0382 


LOOPQ 


0354 


LOOPR 


03AA 


MASK 


003C PADD .E843 


PAD 




E84F 


SQUELC 


03D2 


STRGQ 036E STRGR 03B7 


WDB 




0038 











To Order PROGftAMMCft'S ToOlKlT or MfiCROTcfl — 

Custom designed to plug into your PET. So, when ordering, please indicate if your 
Toolkit: 

... will be used with the Skyles Memory Expansion System, or $80.00* 

—will be used with the ExpandaPet, or Expandmem $80.00' 

... wi II be used with the PET 2001-8 alone $80.00* 

(We furnish connectors to the memory expansion bus and to the second cassette interface. 

.. .will be used with the PET 2001-16, -32 (chip only) $50.00* 



.will be used with Skyles MacroTeA 



$50.00* 



Your MacroTeA. Custom designed for your PET. So specify your PET model when ord« ring.$295.00" 

(Important Savings: If it's to be used with a Skyles Memory Expansion System, the MacroTeA can 
plug directly into the Skyles connector. So you save $20. The Skyles MacroTeA is only $275.00 
when Interfaced with the Skyles Memory Expansion System.) 

Send your check or money order to Skyles Electric Works. VISA, Mastercharge orders may call 
(800) 227-8398. (California residents: please phone (415) 494-1210.) Ten Day Uncondit onal Money- 
Back Guarantee on all products sold by Skyles Electric Works, except chip only. 
'All prices complete, including shipping and handling. Please allow 3 weeks. 
California residents: please add 6-6% % California sales tax. 

SKYLES ELECTRIC WORKS 10301 Stonydale Drive, Cupertino, CA 95014, (400) 735-7891 



Is Programming Fun? 

Have More Fun, 
Make Fewer €rrors, 
Complete Programs Much 
Foster .... with the 

BasicProgrammcrs 
Toolkit™ 

Now you can modify, polish, simplify, 
add new features to your PET pro- 
grams far more quickly while reducing 
the potential for error. That all adds up 
to more fun . . . and the BASIC 
Programmer's ToolKit. 

The magic of the ToolKit: 2KB of 
ROM firmware on a single chip with a 
collection of machine language pro- 
grams available to you from the time 
you turn on your PET to the time you 
shut if off. No tapes to load or to 
interfere with any running programs. 
And the Programmer's ToolKit installs 
in minutes, without tools. 

Here are the 1 1 commands that can 
be yours instantly and automatically 
. . . guaranteed to make your BASIC 
programming a pleasure: 



AUTO 


RENUMBER 


DELETE 


HELP 


TRACE 


STEP 


OFF 


APPEND 


DUMP 


FIND 







Every one a powerful command to 
insure more effective programming. 
Like the HELP command that shows 
the line on which the error occurs 
. . . and the erroneous portion is 
indicated in reverse video: 



HELP 
500 J=SQR(A*B/S) 



...Or the TRACE command that 
lets you see the sequence in which 
your program is being executed in a 
window in the upper corner of your 
CRT: 




The Programmer's ToolKit is a 

product of Harry Saal and his 
associates at Palo Alto ICs, a sub- 
sidiary of Nestar Systems, Inc. Dr. 
Saal is considered a leading expert in 
the field of personal computers. 

So, if you really want to be into 
BASIC programming — and you want 
to have fun while you're doing it, order 
your BASIC Programmer's ToolKit 
now. You'll be able to enjoy it very 
soon. We guarantee you'll be de- 
lighted with it: if, for any reason you're 
not, return it within ten days. We'll 
refund every penny. And no questions 
asked. 




Skyles Electric Works 



You love your PET, but you'll 
love it mote with this BigKeyboard? 



a» mix- mm sate 
«s**< «»* safe 
> mm. ***» *~ * 



74KB Big Key Boards @S1 25.00 (Plus $5.00 shipping & handling) 

The Skyles Big KeyBoard™. More than 15 inches vide. A layout nearly 

identical to the PET Keyboard and with all functions— alpha, numeric, 

graphics, special symbols, lower case alpha — on full-sized, almost plump, 

key-tops double-shot to guarantee lifetime durability 

J r b Actual size 

Would you like to turn on your PET 
. and see this 




• • 



* * * COMMODORE BASIC 
31743 BYTES FREE 
READY 



8KB 8K Memory Expansion Systems @ $250.00 

(Plus $3.50 shipping & handling) 

16KB 1 6K Memory Expansion Systems @ $450.00 

(Plus $5.00 shipping & handling) 

24KB 24K Memory Expansion Systems @ $650.00 

(Plus $5.00 shipping & handling) 

Skyles Memory Expansion Systems are complete; nothing more to buy. • First quality 
static RAMs • Solid soldered on first quality glass epoxy board • Separate PET Adapter 
Printed Circuit Board connects directly to data bus on your PET— no rat's nest of hang- 
ing hand-wiring • Ribbon cable and 50 pin connectors that keep your PET open to the 
outside world (one on the 8KB; two on the 16KB and 24KB). 

8KB Memory Expansion System(s) at $250 each. 

(Adds 8,192 bytes; total 1 5 ,3 59)(shipping and handling $3.50 each) 
16KB Memory Expansion System(s) at $450 each. 

(Adds 16,384 bytes; total 23,551) {shipping and handling $5.00 each) 
24KB Memory Expansion System(s) at $650 each. 

(Adds 14,576 bytes; total 3 1 ,743) (shipping and handling $7.00 each) 
74KB Big KeyBoard(s) at $ 1 25 

(shipping and handling $5.00 each) 

SPECIAL DEAL(S): 8KB Memory and 74KB KeyBoard at $350 complete 

SPECIAL DEAL(S): 16KB Memory and 74KB KeyBoard at $525 complete 



$. 



$. 



$ 



' Please add 6% sales tax if you are a California resident; 6.5% if a resident of BART, Santa Clara or Santa Cruz Counties (CA). 
Please add shipping and handling costs as indicated. 

VISA, MASTERCHARGE ORDERS CALL (800) 227-8398 (except California residents) 

CALIFORNIA ORDERS PLEASE CALL (415) 494-1210 




Skyles Electric Works 



10301 Stonydale Drive 
Cupertino, CA 95014 
(408) 735-7891 



Tiny PILOT: 

An Educational Language for the 6502 



PILOT is a higher level language used for computer aided 
instruction. This version includes an editor Jind an inter- 
preter. It requires fewer than 800 bytes of memory. 



Nicholas Vrtis 

5863 Pinetree S.E. 

Kentwood, Ml 49508 



•t ******************* tit t ****************** tt«t***ttttt*ft*t**ti>t***i 

CHAR * EDIT FUNCTION 



START EXECUTION OF THE P 
MOVE EDIT POINTER TO STA 
DISPLAY NEXT LINE OF THE 
PAD TO END OF LINE WITH 
BACKSPACE TO CORRECT TYP 
CARRIAGE RETURN - INDICA 
CHARACTER IS STORED IN P 

•••*••••••••••••*• ••••*•* 

STATEMENT 
************************* 

TYPE 



UP ARROW* 
/ * 

% * 

fl/S » 

C/R * 

ANY » 

********* 

FORMAT 

T:TEXT * 

A: • ACCEPT 

?: * ACCEPT NAME 

M:TEXT » MATCH 



J:N 

U:N 

E: 

S: 

C: 



JUMP 

USE SUBROUTINE N 
EXIT FROM SUBROUTINE 
STOP 
COMPUTE 



N 
Y 

»N 



$X 



» REMARKS 

» CONDITIONALS 



* LABEL 

» 

* 

» VARIABLE ITEM 



• IlilHIIilllHtHIIHIHHHIHH 



ILOT PROGRAM 
RT OF PROGRAM 

PROGRAM 
DELETE CHARACTERS 
ING ERROR 

TS END OF STATEMENT 
ROGRAM (MAX 127 PER LINE) 

«••*•••*•••••••••••*•••••••• t****« 

WHAT IT DOES 

IllilttllllllllllllllllOtllllllll 

DISPLAY THE TEXT ON THE TERMINAL 

INPUT UP TO 40 CHARACTERS INTO 

ANSWER FIELD 

INPUT UP TO 40 CHARACTERS INTO 

NAME AND ANSWER FIELD. 

COMPARE TEXT TO LAST IMPUT fROM 

TERMINAL AND SET MATCH FLAG TO 

Y IF EQUAL, N IF NOT EQUAL. 

JUMP TO LABEL N FOR NEXT LIIE. 

J:A MEANS JUMP TO LAST ACCEIT. 

J=* MEANS RESTART FROM BEGI1NING. 

SAVE ADDRESS OF START OF NEIT 

LINE AND THEN PERFORM AS IS JUMP. 

RETURN TO ADDRESS SAVED BY I RIOR 

USE STATEMENT. 

STOP PROGRAM AND RETURN TO fIDITOR 

PERFORMS ARITHMETIC ON VARIABLES 
NAMED A THROUGH 2. ALLOWED 
OPERATIONS ARE =, +, AND - 
RANGE IS + OR - 999 
C:$= WILL PLACE RESULT IN JUISWER 
FIELD INSTEAD OF A VARIABLH 
PROGRAM REMARKS - NOT EXECl"ED 

MAY PRECEED ANY STATEMENT. 
EXECUTE ONLY IF MATCH FLAG :!S N 
EXECUTE ONLY IF MATCH FLAG .13 Y 

MAY PRECEED ANY STATEMENT Oil 

CONDITIONAL. ACTS AS DESTINATION 

FOR A JUMP OR USE STATEMENT 

AS PART OF TEXT CAUSES COST! 

OF VARIABLES TO BE DISPLAY!:! 

MATCHED . 

$»? INDICATES NAME FIELDS. 

• I******lll****************1h 
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Are you envious of the guys on your 
block who have big BASIC systems? 
Have you ever tried to teach machine 
language to someone who thinks HEX is 
an evil spell? I had the same problem 
until I discovered PILOT, and im- 
plemented a small version on my SYM-1. 
For those who haven't heard of PILOT 
yet, it is an educational, high level 
language intended for computer aided 
instruction. It is a very simple language, 
with only ten basic instructions, but it in- 
corporates a number of features that 
make it easy enough to use as a method 
for introducing people to computers. I 
have written some math drill programs 
for my six- and eight-year olds, and in 
turn, my eight-year old loves to write pro- 
grams for her little brother to run. 

This implementation of PILOT is not a 
full "standard" version. After all, what 
do you expect from an interpeter and 
editor that run in less than 800 bytes? I 
also could not resist the temptation to 
change things a little here and there. It 
is close enough to give a flavor for what 
PILOT can do, and it makes a nice 
language to have fun with, even on a 2K 
system. 

The editor performs only the most 
elementary functions required to get a 
program in and running. It accepts 
characters without checking syntax 
rules, the only limitation being that each 
line is a maximum of 127 characters 
long. I compromised at 127, instead of 
80, because the sign of the index 
register changes at 128, and so I avoid- 
ed a compare. 

The program looks for the ASCII 
back-space character, hex 08, because 
my CRT actually backspaces. If your ter- 
minal doesn't, you might want to 
change this to a printable character 
such as the underscore used by many 
timesharing systems. A check is also 
made for the backspace in the code for 
the ACCEPT statement, so be sure to 
change it there as well. 
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The editor doesn't have a provision 
f«r inserting a line between existing 
lines, but it is possible to change a line, 
provided you replace it with one of the 
same length or shorter. The percent key 
fills from the current position to the next 
end of line with delete characters, hex 
FF. Since most terminals ignore these, it 
works effectively as a delete to the end 
of the line. The program has to check for 
these during MATCH and COMPUTE 
statement processing, since they repre- 
sent the logical end of line. 

The carriage return, entered as the 
end of line, is converted to a zero by the 
editor. This simplifies looking for the 
end of each line, later on, since the zero 
flag is set as the byte gets loaded. The 
SYM monitor routine CRLF outputs both 
the carriage return and the line feed, so 
one doesn't save anything by keeping 
the return in the line to output it. 

The locations CURAD and CURAD + 1 
address the start of each PILOT line. In- 
itially, this is set to $500 by the routine 
SETBGN. The Y register is incremented 
o access the next character in the line. 
At the end of each line, subroutine SCU- 
RAO bumps Y one more time to get past 
the end of line character, and then adds 
the resulting Y value to the current ad- 
dress and resets Y to zero. 

This sets things up for the start of the 
next line. Performing the line scan in this 
way saves two bytes each time I need to 
get to the next character because an 
INY is used instead of a JSR, and it also 
makes it easy to check for a line too 



EPROM PROGRAMMER 
Model EP-2A-79 

1 1 




SOFTWARE AVAILABLE FOR F-8, 8080, 6800, 
8085, Z-80, 6502, KIM-1, 1802, 2650. 
EPROM type is selected by a personality module 
which plugs into the front of the programmer. 
Power requirements are 115 VAC, 50/60 HZ at 15 
watts. It is supplied with a 36 inch ribbon cable 
for, connecting to microcomputer. Requires 1'/2 
I/O ports. Priced at $155 with one set of 
software. Personality modules are shown below. 



Part No. 




Programs 


Price 


PM-0 


TMS 


2708 


$15.00 


PM-1 




2704, 2708 


15.00 


PM-2 




2732 


30.00 


PM-3 


TMS 


2716 


15.00 


PM-4 


TMS 


2532 


30.00 


PM-5 


TMS 


2516, 2716, 2758 


15.00 



Optimal Technology, Inc. 

Blue Wood 127, Earlysville, VA 22936 
Phone (804) 973-5482 



0200 A9 30 
3202 85 37 
3204 20 83 Ot 



0207 A9 3E 
0209 20 47 8A 



020C 20 1B 8A 
02 OF AA 
0210 F0 FA 

0212 C9 5E 
0214 F0 EA 

0216 C9 40 
0218 F0 33 

021A C9 08 
021 C DO 06 

021E 88 
021F 10 E3 

0221 C3 

0222 10 E8 

0224 C9 2F 
0226 DO 05 



0223 20 21 04 
022B B0 DA 



022D C9 25 
022F DO 0E 



0231 B1 97 
0233 F0 18 
0235 A9 FF 
0237 91 97 
0239 C8 
023A 10 F5 
023C 88 
023D A9 0D 



' PACE 


.ERl DATA R 


L3T 


1 $0000 


FLG 


1 $0002 


CHRS 


1 $0003 


NAME 


• $002B 


VARIBS 


1 $0053 


IFLAG 


1 $0087 


H0LDY 


1 $0088 


WORK 


1 $0089 


RESULT 


' $008B 


ANSX 


1 $008D 


SIGNIF 


1 $008E 


0PRATN 


1 $008F 


NUMDSP ' 


$0090 


RETURN ' 


$0095 


CURAD ' 


$0097 



ADDRESS OF LAST ACCEPT COMMAND 

CURRENT YES/NO FLAG 

ALLOW 40 BYTES OF INPUT 

VARIABLE AREAS - 2 BYTES EACH 

VARIABLE AREAS - 2 BYTES EACH 

SPECIAL INDICATOR FLAG AREA 

HOLD AREA FOR Y VALUE 

TEMP WORK VARIABLE 

RESULT HOLD AREA FOR COMPUTATIONS 

HOLD AREA FOR ANSWER INDEX POINTER 

SIGNIFICANCE INDICATOR 

LAST OPERATION IN COMPUTE STATEMENT 

DISPLAY VARIABLE BUILD AREA 

JUMP RETURN ADDRESS 

ADDRESS OF START OF CURRENT LINE 



CR * $0D CARRIAGE RETURN CODE 
* 

» EXTERNAL ADDRESS REFERENCES 
i 

CRLF • $834D OUTPUT A CR AND LF 
INCHR » $8A1B INPUT ONE CHARACTER 
OUTCHR * $8A47 OUTPUT ONE CHARACTEH 

ORG $0200 

* 

• START OF THE EDITOR PORTION 
* 

START LDAJM $80 SET MODE TO EDIT FOR "PRT" ROUTINE 
STA IFLAG 
JSR SETBGN SET UP STARTING DATA AREA ADDRESS 

i 

• HERE IS THE START OF EACH NEW LINE 
* 

ELINE LDAIM $3E OUTPUT A ">" PROMPT CHARACTEH 
JSR OUTCHR 

i 

• HERE IS .HERE EACH INPUT CHARACTER IS OBTAINED 
t 

EGET JSR INCHR 

TAX CHECK FOR NULLS AND IGNORE 

BEQ EGET 30 THEY DON'T GET CONFUSED WITH EOL 

CMPIH $5£ IS IT AN UPARR0W? 

BEQ START YES - START AT BEGINNING AGAIN 

CMP1H $40 IS IT "AT" SYMBOL FOR EXECUTE REQUEST 
BEQ EXEC YES - GO START ON THAT 

CMP1M $08 IS IT A BACKSPACE? 

BNE TRYDSP NO - GO CHECK FOR DISPLAY REQUEST 

DEY YES - BACK UP ONE CHARACTER 

BPL EGET BUT CHECK FOR PAST START OF LINE 
INY HE BACKED UP TOO FAR - DISALLOW 

BPL EGET UNCONDITIONAL 

TRYDSP CMP:M $2F IS IT "/" FOR DISPLAY LINE REQUEST? 

BNE TRYREP NO - CHECK FOR REPLACEMENT REQUEST 
t 

• DISPLAY '0 THE NEXT CARRIAGE RETURN 



JSR 
BCS 



PRT 

ELINE 



TRYREP CMP'M $25 
BNE CHAR 



PRINT THE LINE 
UNCONDITIONAL 

IS IT "$" REQUEST TO PAD A LINE? 
NO - MUST BE DATA CHARACTER 



• PAD THE I INE FROM CURRENT L0C TO ECL WITH DELETE CHAR 



PADLOP LDA:Y CURAD 
BEQ SETNL 

lda;m $FF 

sta: V CURAD 

INY 

BPL PADLOP 

DEY 

lda:m CR 



GET CURRENT CHARACTER 

IF ZERO, WE ARE DONE 

ELSE MAKE IT A DELETE CHAR 

BUMP TO NEXT CHARACTER 
LOOP IF HAVEN'T DONE 128 
LINE IS TOO LONG - BACK UP ONE 
FORCE IN AN EOL HERE 



• IT WASN 1 ' AN EDIT CHARACTER - MUST BE DATA TO SAVE 



022F C9 OD 
0241 DO 02 
021*3 A9 00 
0215 91 97 
0247 FO 04 

0249 C8 
02UA 1C CO 
024C 88 

024D 20 57 04 

0250 BO B5 



CHAR 



CHART 



3ETNL 



CMPIM 


CR 


BNE 


CHART 


LDAIM 


$00 


3TAIY 


CURAD 


BEQ 


SETNL 


INI 




BPL 


EGET 


DEY 




JSR 


LINEN! 


BCS 


ELINE 



IS IT CARRIAGE RETURN AS EOL? 

SKIP AHEAD IF NOT 

ELSE CONVERT CR TO ZERO AS EOL 

PUT IT AWAY 

BRANCH IF YES 

ELSE BUMP TO SET UF FOR NEXT ONE 

AND GO GET IT IF STILL ROOM ON LINE 

ELSE POINT BACK TO LAST CHAR 4 FALL THRU 



INEND DO CR/LF AND FIX UP CURAD 
GO START A NEW LINE 



• EXECUTION PORTION BEGINS HERE 



0252 20 4D 83 EXEC JSR 



CRLF 



EXTRA BLANK LINE AFTER EDITOR 



0255 20 83 04 RESTRT JSR SETBGN HERE IF FROM J:» 



025a A2 33 
025A A9 00 
025C 85 96 
025E 95 53 

0260 CA 

0261 10 



'B 



0263 B1 97 
0265 C9 2A 
0267 DO 04 
0269 C8 
026A C8 
026B DO F6 



026D C9 59 
026F FO 04 
0271 C9 4E 
0273 DO 09 



0275 C5 02 
0277 FO F1 



0279 20 5A 04 
027C BO E5 

027E 85 87 

0280 C8 

0281 C8 



0282 C9 3F 
0284 DO 05 

0286 38 

0287 66 87 
0289 DO OC 



028B C9 41 
028D DO 34 
028F A5 97 
0291 85 00 
0293 A5 98 
0295 85 01 



0297 A9 3F 
0299 20 47 8A 

029C A2 27 
029E 20 IB 8A 
02A1 C9 08 
02A3 DO 03 
02A5 E8 
02A6 DO F6 
02A8 C9 OD 
02AA DO 02 
02AC A9 00 
02AE 95 03 
0230 24 87 



ZERO VARIABLE ZREAS 



►01 



LDXIM $33 
LDAIM $00 
STA RETURN 
RESTR1 STAX VARIBS 
DEX 
BPL RESTR 1 



LSTART LDAIY CURAD GET CHARACTER FROM THE LINE 
CMPIM $2A CHECK FOR "•" LABEL MARKER 
BNE CHKCON IF NOT - CO CHECK FOR CONDITIONAL 
INY OTHERWISE SKIP PAST THE "•" 

SKPNXT INY SKIP PAST THE NEXT CHARACTER 
BNE LSTART UNCONDITIONAL 

» FLAG DEPENDENT PROCESSING HERE 

CHKCON CMPIM $59 CHECK FOR »Y" REQUEST 

BEQ TFLAG BRANCH IF YES 

CMPIM $4E IF NOT - CHECK FOR "N» REQUEST 

BNE STRTST BRANCH IF NEITHER 

* SEE IF CONDITIONAL MATCHES FLAG 



TFLAG CMP 
BEQ 



FLG SEE IF THEY MATCH 

SKPNXT SKIP TO NEXT CHAR & EXECUTE LINE 



* NO MATCH - SKIP THIS STATEMENT 



FWD 



JSR 
BCS 



STRTST STA 
INY 

INY 



FWD1 USE THIS SUBROUTINE 
LSTART UNCONDITIONAL 

IFUG THIS WILL CLEAR HIGH BIT FOR EDITOR 
POINT TO THE ":" CHAR 
AND TO THE FOLLOWING CHARACTER 



• ENTER NAME STATEMENT 



XQUEST CMPIM $3F 
BNE XA 
SEC 
ROR IFLAG 



IS IT "?» FOR ENTER NAME? 
BRANCH IF NOT 

TURN HIGH ORDER BIT ON TO INDICATE 
PROCESSING NAME COMMAND 



BNE TAKEIN NOW USE THE ACCEPT LOGIC 



* ACCEPT STATEMENT 



XA 



CMPIM $41 
BNE XC 
LDA CURAD 
STA LST 
LDA CURAD 
STA LST 



SEE IF HAVE ACCEPT STATEMENT 

BRANCH IF NOT 

SAVE ADDRESS OF THE "A" STATEMENT 

NOTE: WILL INCLUDE CONDITIONALS 

+01 

+01 



TAKEIN LDAIM $3F DISPLAY "?" PROMPTING CHARACTER 
JSR OUTCHR 

LDXIM $27 CHRS GETS STORED BACKWARDS 

ACHR JSR INCHR GET AN INPUT CHARACTER 

CMPIM $08 IS IT A BACKSPACE? 

BNE ACHR1 BRANCH IF NOT 

INX ELSE FORGET ABOUT LAST CHARACTER IN 

BNE ACHR UNCONDITIONAL 

ACHR1 CMPIM CR WAS IT A CARRIAGE RETURN? 

BNE ACHR2 NO - SKIP AHEAD 

LDAIM $00 YES - CONVERT CR TO END OF LINE 

ACHR2 STAX CHRS AND SAVE IT FOR MATCH STATEMENT 

BIT IFLAG SEE IF GETTING NAME FIELD 



long. If Y is minus after it has been in- 
cremented, more than 128 characters 
have gone by since the start of the line. 

The editor inserts an end of line at this 
point and continues on. If this occurs 
during line print or scan for end of line, it 
probably means that the PILOT program 
has gone off the end, so these routines 
branch to SETBGN to start at the beginn- 
ing again. This does not prevent the 
PILOT program from looping while look- 
ing for an undefined label, but it does 
prevent printing some garbage. 

The first character on a line is not 
necessarily useful for executing a PILOT 
statement. There might be a line feed or 
some other control character present 
there. The asterisk and the label are not 
used except as a destination for a USE 
or JUMP statement. If we do find one of 
these, we not only need to skip it, but we 
must also skip the next character, since 
that is the label. The routine SKPJNK 
takes care of skipping over everything 
but the asterisk, since the same routine 
is used by both normal command start 
and by the label search routine. 

Once the program has searched out 
the first probable command character 
on the line, the next thing it has to do is 
look for a conditional flag. This will 
determine whether it must examine the 
rest of the line. A "Y" or an "N" is a con- 
ditional, and if the character of one of 
these lines, it is checked against the cur- 
rent value in FLG. If they do match, the 
program simply increments Y to point to 
the following character, and also starts 
again, but this time Y is pointing to the 
operation code following the condi- 
tional. 

Most of the other operations execute 
in a similar manner. They look at the cur- 
rent character in A, do their processing if 
it is their turn, or branch to the next 
routine if it isn't theirs. There are some 
exceptions to this (naturally). The TEXT 
command is last because, if the 
character isn't a valid statement, the 
whole line must be printed anyway. One 
of the other exceptions is the processing 
for ENTER NAME (?:) and ACCEPT state- 
ments, which share much of the same 
code. Another is the code for JUMP and 
USER statements, which also share 
common code. 

Logically, the only difference between 
the "?:" statement and the "A:" state- 
ment is that the "?:" inputs characters 
into both CHRS and into NAME, while 
the "A:" saves the starting address of 
the line for use in "J:A" (jump to last ac- 
cept) processing. In fact, the processing 
of the ENTER NAME statement merely 
involves setting the high order bit of 
IFLAG on and skipping the save of the 
line address that the ACCEPT statement 
performs. The high order bit of IFLAG is 
normally turned off by storing the ASCII 
command character in it. The code for 
the ACCEPT statement checks the high 
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order bit of IFLAG and stores the input 
character in NAME if the bit is on. 

One thing to note is that data saved in 
NAME and CHRS are stored backwards, 
with the first input character in 
CH RS + 39,the second in CHRS + 38, etc. 
Since I have to initialize the X register 
anyway, I could initialize it with zero and 
count up, or with 39 and count down. If I 
am counting up, though, I need to do a 
compare to see if I have reached the 
maximum value. If I am counting down, 
the minus flag will automatically set 
when I reach the end. 

The COMPUTE statement uses 
decimal arithmetic. Each variable is two 
bytes long, with the high order first. The 
high order decimal digit (bits 0-3 of the 
first byte) are used to indicate the sign. 
A value of 8 or 9 indicates a negative 
number, while anything else is con- 
sidered positive. It works out to be tens' 
complement arithmetic. To illustrate, 
assume I want to calculate 1 minus 2, 
which everybody knows is -1. The ac- 
tual result from the decimal subtract is 
$9999, much as it would be $FFFF in 
binary. 

Inordertodisplaythisas - 1, we have 
to subtract $9999 from zero to get $0001. 
Using decimal arithmetic does have 
some disadvantages, particularly the 
fact that the range of numbers is -2000 
to + 7999 ($8000 to $7999) for two bytes 
instead of -32768 to +32767 for binary. 
Another disadvantage is that INC is not 
a decimal instruction. 

The primary advantage of using 
decimal mode is the ease of translating 
from ASCII to internal and back. The 
ASCII characters zero through nine are 
$30 through $39 in hex. Multiplying by 10 
in order to accept the next digit into a 
number is also very easy, since it only re- 
quires a four bit shift left. Converting to 
display merely means shifting each digit 
to the low order four bits. ANDing off the 
high order part, and ORing in $30. 

The MATCH statement is the most 
complicated statement apart from COM- 
PUTE. In theory, all that has to be done 
is compare the characters in CHRS 
against those in the MATCH statement 
line, and then set FLG to Y if they match, 
and to N if they don't. This works fine if 
they match. The problems come when 
they are different. Before the flag gets 
set to N, we have to determine why they 
did not match. 

For one thing, it might be the end of 
the MATCH statement line. Since all the 
characters up to that point have match- 
ed, the program treats this condition as 
a complete match. PILOT uses the com- 
ma as a seperator in the match state- 
ment to indicate alternate possible mat- 
ches, so if the mismatch character is a 
comma, it is treated as the end of line, 
and FLG is set to Y. 



C2B2 10 02 
02 S4 95 2B 
02B6 C9 00 
02B8 F0 
02 BA CA 
02BB 10 
02 BD 20 



03 



El 
ID 83 



02C0 »C 79 02 



02C3 C9 13 
02C5 F0 03 
02C7 1C 56 03 
02CA 20 9" 01 
02 CD 36 8D 
02CF A9 00 
02D1 85 8B 
02D3 85 8C 
02D5 C8 
02D6 A2 2B 
02D8 DO HA 



02DA C8 
02D8 B1 97 
02DD 30 20 
02DF C9 2F 
02E1 90 1C 
02E3 C9 3A 
02E5 B0 12 



02E7 
02E9 
02EA 
02EB 
02EC 
02ED 
02 EF 
02F1 
02F3 
02F1 
02f5 
02F7 



29 OF 
6A 
5A 
6A 
6A 

A2 04 
26 8A 
26 89 
0A 
CA 

DO FS 
F0 E1 



02F9 20 9C 01 
02FC 1C DA 02 



02FF F8 
0300 AA 
0301 
0303 



A5 8F 
C9 2D 



0305 F0 10 

0307 18 

0308 A5 3A 
030A 65 8C 
030C 85 8C 
030E A5 89 

0310 65 8B 
0312 85 8B 

0311 1C 21 03 

0317 38 

0318 A5 8C 
031A E5 8A 
031C 85 8C 
031E A5 88 

0320 E5 89 
0322 85 8B 

0321 D8 
0325 86 8F 

0327 8A 

0328 F0 0A 
032A 30 08 

032C A9 00 
032E 85 89 
0330 85 8A 
0332 F0 A6 



ACHR3 



ADONE 



BPL a:iir3 

STAX N U1E 
CMPIM $10 



BEQ 
DEX 
BPL 
JSR 
JMP 



A NINE 

A :!!R 
CI1.F 
Fl!> 



BRANCH IF NOT 

ELSE SAVE IN NAME FIELD ALSO 

IS IT DONE YET? 

BRANCH. IF HE HAS SIGNALLED END 

ELSE BUMP FOR NEXT INPUT 

AND GO GET IT IF ROOM STILL LEFT 

DO CR/LF TO LET GUY KNOW 



* COMPUTE STAT 2IENT 



XC 



XC1 



CMPIM $ n 
BEQ x : I 
JMP X ! 
JSR G :"IDX 

stx A i:sx 

LDAIM * )(> 

STA r ::iult 
sta r ::;ult 

INY 

LDXIM $ Ml 
BNE 'WRAP 



IS IT A "C FOR COMPUTE? 

BRANCH IF IT IS 

ELSE LONG JUMP TO TEST FOR M 

GET INDEX POINTER TO RESULT 

SAVE IT FOR NOW 

CLEAR RESULT 

+01 

POINT TO "=" 

SET 1ST OPERATION TO " + " FOR ADD 

GO SAVE 4 SET UP WORK AREA 



• LOOP FOP EAC I NEW CHARACTER IN COMPUTE PROCESSING 



CMPLOP INY 

LDAIY C IliAD 

BMI I 10PR 

CMPIM $ !!' 

BCC I iOPR 

CMPIM * ;j. 

BCS N ITNMB 

ANDIM $ I' 
RORA 
RORA 
RORA 
RORA 
LDXIM 
BITR0L R0L 



BUMP TO NEXT CHARACTER 

GET A CHARACTER 

MINUS IS DELETE/ALSO LAST "OPERATOR" 

IS IT "/" FOR AN OPERATION SPECIFIED? 

BRANCH IF YES 

IF NOT - IS IT ":" FOR A NUMBER? 

BRANCH IF NOT - MUST BE A VARIABLE 

CONVERT NUMBER TO BINARY 
SPIN TO HIGH ORDER PART OF A 



* l 

W ifK 

W if K 



LEAVE BIT 3 IN CARRY 
1 BITS TO ROLL INTO WORK 
+01 RIPPLE CARRY INTO WORK 
ROL W ifK FOR 16 BITS 
ASLA PUT NEXT BIT INTO CARRY 
DEX COUNT ONE JUST DONE 

BNE B 1R0L CONTINUE IF MORE TO GO 
BEQ CELOP ELSE GET NEXT CHARACTER (DIGITS) 

NOTNMB JSR V FANS TRANSFER VARIABLE TO WORK AREA 

JMP CI FLOP GO GET NEXT CHARACTER (OPERATION?) 
1 

• GOT AN OPERA' ION - FIRST PERFORM PREVIOUS REQUEST 



ISOPR SED 
TAX 

LDA fATN 

CMPIM $; I 

BEQ MfUS 
CLC 

LDA W< RK 

ADC Ri SULT 

STA R! SULT 

LDA W( RK 

ADC R1SULT 

STA RI SULT 

JMP 01 WRAP 



SET TO DECIMAL MODE 

SAVE NEW OPERATION IN X FOR NOW 

GET PREVIOUS OPERATION 

WAS IT A "-" FOR SUBTRACT? 

BRANCH IF YES 

ALL OTHERS ASSUME IT IS ADD 

+01 

+01 

+01 



GO WRAP UP THE OPERATION 



0PMNUS SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 



SUBTRACTION 
RI2ULT +01 
W( RK +01 
RISULT +01 
Rl SULT 
U< RK 
RISULT 



OPWRAP CLD GET OUT OF DECIMAL MODE 

STX 01 RATN SAVE NEW OPERATION 
TXA DO TRANSFER TO CHECK FOR "00" /"FF" 

BEQ CJPDON DONE IF IT WAS ZERO ( E0L ) 

BMI C! PDCH OR DELETE CHARACTERS (FROM FILLING) 

LDAIM $( C ELSE CLEAR WORK AREA FOR NEXT ONE 

STA W( RK 

STA W(RK +01 

BEQ Cf FLOP AND GO DO NEXT CHARACTER 
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0334 A6 8D 
0336 10 13 

0338 A2 38 

033A 20 9F 04 
033D 20 AB 04 
0340 A2 04 
0342 B5 90 
0344 95 26 
0346 CA 

10 F9 



CMPDON LDX 
BPL 



ANSX GET INDEX TO RESULT 

TOVRIB PLUS IS NORMAL INDEX TO A VARIABLE 



0347 

0349 30 08 

034B A5 8C 

034D 95 54 

034F A5 8B 

0351 95 53 

0353 4C 79 02 XFWD 



LDXIM »38 

JSR VTRANS 

JSR CNVDSP 

LDXIM »04 
TALOOP LDAX NUMDSP 

STAX CHRS 

DEX 

BPL 

BMI 
TOVRIB LDA 



TALOOP 
XFWD 
RESULT 
STAX VARIBS 
LDA RESULT 
STAX VARIBS 
JMP FWD 



ELSE FUDGE INDEX FOR "FROM" RESULT 

USING "RESULT - VARIBS" 
+03 MOVE RESULT TO WORK AREA 
+03 CONVERT IT TO DISPLAY FORM 
TRANSFER DISPLAY TO ANSWER AREA 

i-23 NOTE OFFSET TO PUT IT AT THE END 



UNCONDITIONAL 

+01 DESIRED VARIABLE 

+01 



AND GO DO NEXT ONE 



* PROCESS MATCH STATEMENT 



0356 C9 4D 
0358 DO' 4F 
035A 88 
035B C8 
035C A2 27 
035E 31 97 
0360 FO 08 
0362 D5 03 
0364 DO 08 

0366 C8 

0367 CA 

0368 10 F4 
036A A2 59 
036C DO 37 
036E C9 24 
0370 FO 13 
0372 C9 2C 
0374 FO F4 

0376 C8 

0377 B1 97 
0379 FO 23 

0378 C9 2C 
037D FO DC 
037F DO F5 
0381 A4 88 
0383 DO F1 

0385 CS 

0386 86 8D 
0388 20 A8 04 
038B A6 8D 
038D 84 88 
038F AO 04 



XM CMPIM 
BNE 
DEY 

MCHKX INY 

LDXIM 

MCHK LDAIY 
BEQ 
CMPX 
BNE 
INY 
DEX 
BPL 

MXY LDXIM 
BNE 

MXNMCH CMPIM 
BEQ 
CMPIM 
BEQ 



$4D 
XU 



$27 

CURAD 

MXY 

CHRS 

MXNMCH 



MCHK 

$59 

MX 

*24 

MNUMB 

»2C 

MXY 



IS IT "M" FOR MATCH? 

BRANCH IF NOT 

BACK UP ONE FOR WHAT FOLLOWS 

POINT TO MATCH CHARACTER 

START AT FIRST ACCEPTED CHARACTER 

GET THE MATCH CHARACTER 

THEY HAVE MATCHED TO END OF "M: " STMT 

CHECK FOR MATCH 

BRANCH IF MATCH FAILED 

ELSE BUMP TO NEXT PAIR OF CHARACTERS 

AND GO CHECK IF STILL DATA LEFT 

BOTH EQUAL - SET FLAG TO "I" 

UNCONDITIONAL 

IS IT "$" FOR VARIABLE REQUEST? 

YES - MATCH TO NUMERIC VARIABLE 

IS IT A COMMA GROUP SEPARATOR? 

YES - MATCHED SO FAR - SET IT AS YES 



NO 



SO NEED TO SKIP AHEAD TO COMMA 



MCOMMA INY 

LDAIY CURAD 

BEQ MXSETN IF TO EOL , THERE IS NO MORE TO CHECK 

CMPIM $2C CHECK FOR A COMMA CHARACTER 

BEQ MCHKX RESTART COMPARE AT NEXT MATCH CHARACTER 

BNE MCOMMA LOOP IN SEARCH OF A COMMA 

MCOMX LDY HOLDY RESET Y TO CURRENT LINE POINTER 
BNE MCOMMA AND CO LOOK FOR NEXT COMMA 



MNUMB 



INY VARIABLE - BUMP TO VARIABLE ID 

STX ANSX SAVE CURRENT X FOR NOW 

JSR CNVDSP CONVERT VARIABLE TO DISPLAY FORM 

LDX ANSX GET POINTER TO INPUT BACK 

STY HOLDY SAVE CURRENT "Y" POINTER 



LDYIM $04 



HAVE TO SEARCH UP TO 5 BYTES 



0391 B9 90 00 MXNOLP LDAY NUMDSP GET ONE NUMERIC CHARACTER 



0394 FO 08 
0396 D5 03 
0398 DO E7 
039A CA 
039B 88 
039C 10 F3 

039E A4 88 
03AO C8 
03A1 DO BB 

03A3 A2 4E 
03A5 86 02 
03A7 DO AA 



03A9 C9 55 
03AB DO 11 
03AD B1 97 
03 AF 48 
03B0 20 5A 04 
03B3 A5 97 
03B5 85 95 
03B7 A5 98 
03B9 85 96 
03BB 68 



BEQ MXDIFF BRANCH IF END - MIGHT BE MATCH 



CMPX CHRS 

BNE MCOMX 

DEX 

DEY 

BPL MXNOLP UNCONDITIONAL 



ELSE CHECK AGAINST INPUT 
BRANCH IF NO MATCH 
ELSE CONTINUE MATCHING 



MXDIFF LDY 
INY 
BNE 



HOLDY 



MCHK 



MXSETN LDXIM $4E 
MX STX FLG 
BNE XFWD 



RESET Y TO CURRENT LINE POINTER 
BUMP TO CHARACTER AFTER VARIABLE 
UNCONDITIONAL CONTINUE CHECKING 

GET "N" - MATCH WAS UNSUCCESSFUL 

STORE IT 

UNCONDITIONAL FOWRARD TO NEXT LINE 



• PROCESS USE SUBROUTINE STATEMENT 

t 

XU CMPIM $55 IS IT A »U" FOR USE SUBROUTINE? 
BNE XJ BRANCH IF NOT 
LDAIY CURAD GET DESTINATION 
PHA SAVE THE LABEL CHARACTER 
JSR FWD1 MOVE TO START OF NEXT LINE 
LDA CURAD 

STA RETURN SAVE FOR RETURN ADDRESS 
LDA CURAD +01 
STA RETURN +01 
PLA GET DESTINATION BACK 



There is also the possibility it might 
be caused by a request to match against 
the current value of a variable. To per- 
form variable matching, the program 
calls CNVDSP which converts the vari- 
able to display format with leading zeros 
suppressed. It then matches the display 
format against the characters in CHRS. 
If the variable value matches, the pro- 
gram continues checking the rest of the 
MATCH statement. 

If, even after all this, we still have a no- 
match condition, all is not lost yet. We 
have to scan forward in the MATCH 
statement, to look for a comma or the 
end of line. If we find the end of line, 
then FLG gets set to N. If we find a com- 
ma, the program starts the whole match 
process over again, from the character 
after the comma in the MATCH state- 
ment and from the beginning of CHRS. 
All this sounds confusing but, for exam- 
ple, the statement "M:YE,OK,SUR" will 
provide a Y indication for most affirma- 
tive responses such as YES or YES SIR 
or YEP or SURE WILL or OK. 

As I mentioned earlier, the USE sub- 
routine statement shares much of its 
code with the JUMP statement. The 
main difference is that the USE state- 
ment must save the address of the start 
of the next statement, while the JUMP 
statement doesn't need to. Note that the 
USE statement does not nest levels 
(sorry about that). 

There are two reserved labels in 
PILOT. The first is the asterisk, which is 
used to completely restart the PILOT 
program (including zeroing the vari- 
ables). The second reserved label is "A". 
This label indicates a JUMP (or USE) to 
the last ACCEPT statement. If the label 
in the statement is not one of the reserv- 
ed labels, the program sets CURAD back 
to the start of the PILOT program via a 
call to SETBGN + 3 and starts the search 
for that label. 

The STOP statement is trivial. It mere- 
ly requires a jump back to the start of the 
editor. 

Processing of the EXIT from sub- 
routine statement is slightly more com- 
plex. It involves a check of the high order 
byte of the address contained in RE- 
TURN. If it is zero, then there was no 
USE statement executed to get there, 
and the program merely advances to the 
next line. The high order byte can never 
be zero, since all the lines are stored 
above $500. After restoring the return ad- 
dress to CURAD, the program resets the 
high order byte to zero. This means that 
the PILOT program can either "fall 
through" a subroutine, or use it in a nor- 
mal fashion. 

The REMARKS processing rivals that 
of the STOP statement for complexity. It 
merely involves advancing to the next 
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statement. One final PILOT statement is 
the TYPE statement. It is also the de- 
fault statement if none of the above sec- 
tions processed it. If the statement is 
not a true TYPE statement, Y is backed 
up twice, so the whole line will be 
printed. Otherwise, the line is printed 
following the "T:". 

The remainder of the program con- 
sists of subroutines used by various 
PILOT statements. The routine PRT 
prints the current line to the end. It uses 
the high order bit of 1FLAG to see if the 
program is in editor mode. If it is, then all 
characters are printed, instead of being 
checked for a "$" to indicate a variable. 
After the line has been printed, a car- 
riage return and line feed are output. It 
then falls through to FWD1. 

The purpose of this routine is to ad- 
vance to the end of the current line, and 
set up CURAD for the next line. Since it 
checks for end of line first, before incre- 
menting Y, the fall through from PRT will 
immediately exit this routine, thus sav- 
ing a branch in PRT. 

FWD1, in turn, exits to a routine called 
SCURAD. This adds one to Y, and adds 
the result to CURAD as the start of the 
next line. Finally, this routine falls 
through to SKPJNK, which skips over 
any unwanted junk at the start of the line 
and executes the return. 

With the exception of CNVDSP, the re- 
maining routines are short and pretty 
much to the point. The VTRANS routine 
must transfer the high order byte of the 
variable last, so it sets the sign flag for 
CNVDSP. The format of the NUMDSP ar- 
ray is set up in the same "backward" 
manner used for CHRS and NAME, and 
it is the output of CNVDSP. If the vari- 
able is negative, a " - " is inserted as the 
first character. 

The high order bit of SIGNIF is used to 
keep track of whether a non-zero digit 
has been encountered in the number be- 
ing converted. If the bit is off and the 
current digit is zero, the index is not 
decremented, but the zero is stored 
anyway. If the bit is on, the digit gets 
stored regardless of its value. Any non- 
zero digit turns on the high order bit, just 
to make sure. An end of line zero is in- 
serted after the last digit. 

There are three SYM monitor routines 
used in this program. If you plan to bring 
Tiny PILOT up on another system you 
will have to change the addresses for 
these routines. They are all fairly stan- 
dard, so most systems should have 
equivalents. INCHR gets one ASCII 
character from the terminal into the A 
register, without parity; OUTCHR out- 
puts one ASCII character from A; and 
CRLF outputs a carriage return then a 
line feed. Tiny PILOT assumes that all 
registers are preserved by these 
routines. |i 



JDO 



03BC DO 06 



03BE C9 4A 
03CO DO 2E 
03C2 31 97 

03C4 85 87 
03C6 C9 2A 
03C8 FO 23 
03CA C9 «1 
03CC DO 0A 



03CE A5 00 
03D0 85 97 
03D2 A5 01 
03D1 85 98 
03D6 DO 13 

03D8 20 86 OK JF 



BNE JI'O NO GO HANDLE AS JUMP STATEMENT 

• PROCESS JUMP STATEMENT 

XJ CMPIM $'>A IS IT "J" FOR JUMP STATEMENT? 
BNE XI, BRANCH IF NOT 

LDAIY CURAD GET DESTINATION 



STA Ii'LAG 
CMPIM $;:a 
BEQ IJIEST 
CMPIM $'11 
BNE JV 



LDA 
STA 

LDA 
STA 
BNE 



l:;t 

CURAD 

L.'ST 
CURAD 



SAVE LABEL CHARACTER 

HAVE "*" TO REQUEST RETURN TO BEGINNING? 

BRANCH IF SO 

SEE IF A LABELLED JUMP 

IF NOT "A", IT'S A NORMAL JUMP 



ELSE SET TO START OF LAST ACCEPT 



ILNEXT UNCONDITIONAL 



JSR SKTBGN +03 AND GET BACK TO START OF PROGRAM 



03DB B1 97 
03DD C9 2A 
03DF DO 07 
03E1 C8 
03E2 B1 97 
03E4 C5 87 
03E6 FO 33 
03E8 20 5A 04 
03EB B0 £E 
03ED l»C 55 02 



03F0 C9 53 
03F2 DO 03 
03F4 1C 00 02 



03F7 C9 15 
03F9 DO 10 
03FB A5 96 
03FD F0 10 
03FF 85 98 

0101 A5 95 
0103 85 97 
0105 A9 00 
0107 35 96 
0109 F0 10 



010B C9 52 
040D DO 03 
010F 1C 79 02 



0112 C9 51 
0111 FO 02 

0116 88 

0117 88 

0418 20 21 01 
041B 20 6E 01 
011E 1C 63 02 



FNDMRK LDAIY CURAD 
CMPIM $.2A 
BNE FHNEXT 
INI 

LDAIY CJRAD 
CMP I?LAG 
BEQ I.NEXT 
FMNEXT JSR 
BCS 
JMP 



IREST 



F<D1 

FYDMRK 

RiSTRT 



• STOP STATEMENT 



XS 



CMPIM $53 
BNE XS 
JMP START 



GET FIRST CHARACTER 

IS IT »*" FOR A MARKER? 

NOPE - GO AHEAD TO NEXT LINE 

ELSE BUMP TO MARKER CHARACTER 

GET LABEL 

SEE IF ITS THE ONE WE WANT 

YES - GO EXECUTE IT 

ELSE GO TO NEXT LINE 

AND CONTINUE LOOKING 

INDIRECT TO RESTRT 



IS IT AN "S» FOR STOP STATEMENT? 

BRANCH IF NOT 

ELSE RETURN TO EDITOR START 



» EXIT FROM SUBROUTINE 

* 

XE CMPIM $15 IS IT AN "E" 

BNE XR BRANCH IF NOT 

LDA RETURN +01 MOVE RETURN ADDRESS TO CURAD 

BEQ XXFWD SKIP LINE IF NOT SET 

STA CURAD +01 

LDA RETURN 

STA CURAD 

LDAIM $00 NOW SET TO NOT-USED AGAIN 

STA RETURN +01 

BEQ ILNEXT UNCONDITIONAL 



REMARK STATEMENT 



XR 



XXFWD 



CMPIM $52 
BNE XT 
JMP EWD 



IS IT AN "R" 

BRANCH IF NOT - ELSE SKIP THE LINE 

CAN'T REACH THAT FAR ALONE 



* TYPE STATEMENTS AND SYNTAX ERRORS 
f 



XT CMPIM ii54 

BEQ TE 

DE'Y 

DEY 
TE JSR f'RT 
ILNEXT JSR 

JMP 



IS IT A VALID "T" STATEMENT 

BRANCH IF SO 

ELSE BACK UP TO ORIGINAL START 



NOW PRINT THE LINE 
SKPJNK CURAD IS SET - SKIP OVER LEADING JUNK 
LSTART AND GO START ON THE LINE 



* PRINT A LINi: FROM CURRENT LOCATION TO 
« NEXT EOL AND THEN SET UP FOR NEXT LINE 



0121 B1 97 PRT LDAIY 


CURAD 


GET THE CURRENT CHARACTER 


0123 F0 32 


BEQ 


I.INEND 


BRANCH IF TO END OF LINE 


0425 24 87 


BIT 


"FLAG 


SEE IF IN EDITOR 


0427 30 26 


BHI 


CHROUT 


IF SO, DON'T LOOK FOR "$" 


0429 C9 24 


CMPIM 


Ii24 


IS IT A SPECIAL ONE ("$") 


042B DO 22 


BNE 


CHROUT 


BRANCH IF NOT 


012D C8 


IN? 




ELSE BUMP TO NEXT ONE 


012E B1 97 


LDAIY 


CURAD 


GET VARIABLE 


0430 C9 3F 


CMPIM 


>3F 


IS IT REQUEST FOR NAME ("$")? 


0432 F0 OF 


BEQ 


IIAME0 


BRANCH IF YES 
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0434 20 A8 04 
0437 A2 04 

0439 B5 90 
043B F0 15 

04 3D 20 47 8A 

0440 CA 

0441 10 F6 

0443 A2 27 
0445 B5 2B 
0447 FO 09 
0449 20 47 8A 
044C CA 
044D 10 F6 

044F 20 47 8A 

0452 C8 

0453 10 CC 
0455 30 2C 
0457 20 4D 83 



JSfi CNVDSP CONVERT VARIABLE TO DISPLAY 

LDXIM $04 GOT 5 BYTES POSSIBLE 

VBDISP LDAX NUMDSP GET A CHARACTER 

BEQ CHROUT +03 BRANCH IF TO END OF VARIABLE 

JSR OUTCHR ELSE OUTPUT IT 

DEX AND COUNT IT 

BPL VBDISP UNCONDITIONAL LOOP 



/ 



NAMEO LDXIM $27 



REMEMBER - IT CAME IN BACKWARDS 



045A B1 97 
045C FO 05 
045E C8 
045F 10 F9 
0461 30 20 



LDAX NAME 

BEQ CHROUT +03 BRANCH IF TO END OF NAME 

JSR OUTCHR 

DEX 

BPL NAMEO +02 UNCONDITIONAL 

CHROUT JSR OUTCHR 

INY 

BPL PRT LOOP IF NOT TOO MANY 

BMI SETBGN RESET TO BEGINNING IF PAST THE END 

LINEND JSR CRLF OUTPUT A CR AND THE LINE FEED 
• 

» ENTER HERE TO SKIP A LINE WITHOUT PRINT 
« AJID INITIALIZE FOR THE NEXT LINE 

• 

FWD1 LDAIY CURAD GET A CHARACTER 

• BEQ SCURAD BRANCH IF END OF LINE 

INY ELSE BUMP TO NEXT ONE 

BPL FWD1 LOOP_IF NOT TOO MANY 

BMI SETBGN RESET TO BEGINNING IF PAST THE END 

• 

« HERE FIXES UP CURAD TO POINT TC BEGINNING OF A LINE 
» CURAD SHOULD INDEX END OF LINE (WITH Y) ON ENTRY 

• 

BUMP PAST THE CR 
MOVE COUNT TO A 
CLEAR CARRY FOR ADD 
ADD TO LOW ORDER FIRST 
AND SAVE RESULT 
SKPJNK SKIP IF NO CARRY FORWARD 
01 ELSE BUMP HIGH ORDER 

« HERE TO SKIP PAST LEADING JUNK ON A LINE 



SET UP Y THIS WAY 

INCREMENT TO NEXT CHARACTER 

SEE IF IN EDIT MODE 

DON'T TRY SKIPPING JUNK IF SO 

GET CHARACTER TO LOOK AT 

IGNORE DELETE CHARACTER ALSO 

LOOK FOR "•" LABEL MARKER 

RETURN IF FOUND 

LOOK FOR POSSIBLE OPERATION CHARACTER 

CONTINUE SKIPPING IF TOO LOW 

SET CARRY FOR BRANCHES AFTER RETURN 

BEFORE RETURN 



« SET UP BEGINNING ADDRESS OF USER AREA 



0463 C8 


SCURAD 


INY 




0464 98 




TYA 




0465 18 




CLC 




0466 65 97 




ADC 


CURAD 


0468 85 97 




STA 


CURAD 


046A 90 02 




BCC 


SKPJN 


046C £6 98 




INC 


CURAD 



046E AO 


FF 


SKPJNK 


LDYIM 


$FF 


0470 C8 




SJLOOP 


INY 




0471 24 


87 




BIT 


IFLAG 


0473 30 


OC 




BMI 


SJRTS 


0475 B1 


97 




LDAIY 


CURAD 


0477 30 


F7 




BMI 


SJLOOP 


0479 C9 


2A 




CMPIM 


$2A 


0478 FO 


04 




BEQ 


SJRTS 


047D C9 


3F 




CMPIM 


$3F 


047F 90 


EF 




BCC 


SJLOOP 


0481 38 




SJRTS 


SEC 




0482 50 






RTS 





0483 20 4D 83 
0486 AO 00 
0488 84 97 
048A 84 00 
048C A9 05 
048E 85 98 
0490 85 01 
0492 DO DA 



97 



SETBGN JSR CRLF 
LDYIM $00 
STY CURAD 
STY L3T 
LDAIM $05 
STA CURAD 
STA LST 



START ON A NEW LINE 
EVEN PAGE BOUNDARY 



ALSO SET UP THIS GUY AS DEFAULT 



+01 
+01 



BNE SKPJNK UNCONDITIONAL 



» COMPUTE INDEX FOR A VARIABLE 



0494 B1 

0496 38 

0497 E9 41 
0499 OA 
049A AA 
049B 60 



049C 20 94 04 

049F B5 54 

04A1 85 8A 

04A3 B5 53 

04A5 85 39 
04A7 60 



GETIDX LDAIY CURAD 
SEC 

SBCIM $41 
ASLA 
TAX 
RTS 



GET VARIABLE LETTER 

SUBTRACT "A" TO MAKE RELATIVE TO ZERO 
TIMES TWO BYTES PER VARIABLE 
MOVE TO INDEX REGISTER 
AND RETURN 



« TRANSFER A VARIABLE'S DATA TO WORK AREA 

• 

VTRANS JSR GETIDX GET INDEX POINTER FIRST 

LDAX VARIBS +01 NOW MOVE TO WORK AREA 

STA WORK +01 

LDAX VARIBS 

STA WORK 

RTS 



20 mA Current Loop TTY Interface 

Audio Osteite Interface 

15 User I/O lines 

2 Interval Timers 

1K + RAM 

2k KIM Monitor ROM 

He* KeypadJLED Display 



The Original 6502 System 




KIM-1: $18000 



The Ultimate Enclosure 
for the KIM-1 




ENCLOSURE PLUS 
for KIM: $30°° 



Protects Your KIM-1 

Neat, Attractive, Professional 



Full Access to the Expansion and 
Application Connectors 



Enhances the LED Display with a Red Len< 

Room for the KIM-1 and One 
Additional Board such as 
MEMORY PLUS or VIDEO PLUS. 



20 Column Thermal Printer 
20 Character LED Display 



Rockwell International 

The Complete 6502 System 



High Speed Audio Cassette 

Up to 4k RAM on board 




Up to 12K additional ROM 
Versatile 8k ROM Monitor 



AIM 65: $375«MK RAM - S420004K RAM 



%m pil^ 



ENCLOSURE 

WITH BUILT IN 

POWER SUPPLY 

SPECIFICATIONS: 

INPUT: 110/220 VAC 50/60 Hz 

OUTPUT: + 5V (9 5A 

+ 24V«1A 
GROUNDED THREE-WIRE LINE CORD 
ON/OFF SWITCH WITH PILOT LIGHT 
Enclosure has room for ths AIM and one 
additional board: MEMORY PLUS or VIDEO PLUS 




AIM PLUS: $100°° AIM and AIM PLUS: $475°° 



617/236-3649 



•e 



(gQIMPWlE^OgTF 



V 



PO Box 5 
S Chelmsford. IDA 01824 
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MACRO ASSEMBLER and TEXT EDITOR: 
for PET, APPLE II, SYM, KIM, other 
Macros, conditional assembly, 27 
commands, 22 pseudo-ops. Cassette 
and manual for $49.95 ($1.00 for 
info). C.W. Moser 

3239 Linda Drive 
Winston-Salem, NC 27106 

2IPTAPE loads 8K BASIC in 15 sec- 
onds! Slower than a speeding disk? 
Sure, but it only costs $22.50 
plus $1.00 S4H. $3.00 extra for 
software on KIM cassette. Des- 
cribed in MICRO #6. SASE for info. 
Order from: Lew Edwards 

1451 Hamilton Ave. 

Trenton, NJ 08629 

GRAFAX, the full screen graphics 
editor for the 0SI 2P, 540 video 
graphics ROM, polled keyboard. 
Single keystroke commands make 
drawing a breeze. $10 + $1.00 post 
age for BASIC/assembler cassette 
and documentation: 

Mark Bass 

269 Jamison Drive 

Frankfort, 1L 60423 

Software for the APPLE: 
$25 buys SCROLLING WONDER 
+ GIANT LETTER 

+ HI-RES ALPHANL'MERICS 
on cassette, 16K. $25 buys: 
MULT1 -MESSAGE + 

INTERLEAVED KALEIDOSCOPE + 

MULTI-MESSAGE w/ ABSTRACT ART 

on cassette, 32K. Send check or MO 

to: Connecticut Information Systems 

218 Huntington Rd. 

Bridgeport, CT 06608 

MAILING LIST PROGRAM for APPLE: 
Maintain complete mailing list! 
Requires 1 drive and Applesoft II 
Data base can be added, changed, 
deleted, reformatted, searched (5 
and sorted (5). Send $34.95 to: 
SOFTWARE TECHNOLOGY for COMPUTERS 
P.O. Box 428 
Belmont, Ma. 02178 

For only $33 for 12 issues you 
get CURSOR, the original cassette 
magazine for the Commodore PET. 
Each issue has a graphic "Front 
Cover" program, plus five excel- 
lent programs that are ready to 
Load and Run. The CURSOR NOTES 
newsletter with each issue pro- 
vides useful information about 
the programs and help you with 
using your PET. 

CURSOR 

Box 550 

Goleta, Ca. 93017 

Southeastern Software NEWSLETTER' 
for Apple II Owners. $10.00 for 
10 issues per year. Back issues 
available at $1.00 each. Order 
from: 

SOUTHEASTERN SOFTWARE 

7270 CULPEPPER DRIVE 

DEPT. MI 

NEW ORLEANS, LA. 70126 



04A8 
01 AB 
04AD 
04 AF 
04B1 
04B2 
04B3 
04B5 
04B7 
04B9 
04BB 
04BD 
04 BF 
04C0 
04C2 

04C4 
04C6 
04C7 
04C9 
04CB 
04CE 
04D0 
04D1 
04D2 
04D3 
04D4 
04D7 
04D9 
04DC 
04DE 
04E0 
Q4E1 
04E3 
04E5 



20 9C 04 

10 17 

A9 2D 

85 94 

F8 

38 

A9 00 

E5 8A 

85 8A 

A9 00 

E5 39 

85 89 
E8 

A2 03 

DO 02 

A2 04 

18 

66 8E 

A5 89 

20 E6 04 

A5 8A 

4A 

4A 

4A 

4A 

20 E6 04 

A5 8A 

20 E6 

24 8E 

30 01 

CA 

A9 00 

95 90 

60 



• CONVERT A VARIAELE TO DISPLAY FORM 

t 

CNVDSP JSR VTRAhS MOVE TO W0HK AREA 

BPL ISPLtS BRANCH IF P0SATIVE 

LDAIM $2D ELSE PUT IN MINUS SIGN 

STA NUMD£P +04 

SED SET DECIMAL MODE INDICATOR 

SEC 

LDAIM $00 SUBTRACT FROM ZERO TO COMPLEMENT 



04 



04E6 29 OF 
04E8 09 30 
04EA 95 90 
04EC 24 8E 
04EE 30 05 
04FO C9 30 
04F2 DO 01 
04F4 60 

04F5 38 
04F6 66 8E 
04F8 CA 
04F9 60 



SBC WORK 
STA WORK 
LDAIM $00 
SBC WORK 
STA WORK 
CLD 

LDXIM $03 
BNE ISPL 



ISPLUS LDXIM 
ISPL] CLC 
R0R 
LDA 
JSR 
LDA 
LSRA 
LSRA 
LSRA 
LSRA 
JSR 
LDA 
JSR 
BIT 
BMI 
DEX 
LDAIM 
STAX 
RTS 



$04 

sign:.e 

WORK 

TOOUT 

WORK 



+01 
+01 



CLEAR DECIMAL MODE 
ONLY 4 POSITIONS LEFT 
SKIP INDEX SET 

PLUS HAS FIVE POSITIONS AVAILABLE 
TURN OFF SIGNIFICANCE INDICATOR 

GET FIRST DIGIT 

PUT TO OUTPUT AREA 

+01 SECOND DIGIT IS HIGH ORDER OF THIS 

MOVE TO LOW ORDER 



ISPL2 



TOOUT 

WORK +01 LOW ORDER IS THIRD DIGIT 

TOOUT 

SIGN1F SEE IF HAD ANY SIGNIFICANT CHARS 

ISPL; SKIP NEXT IF YES 

ELSE KEEP THE LAST ZERO THERE 
$00 INSERT END OF LINE MARKER 
NUMDSP 

AND RETURN 



• CONVERT CURRENT VALUE TO ASCII AND PUT TO OUTPUT AREA 
t 

TOOUT ANDIM $0F KEEP ONLY LOW ORDER 
ORAIM $30 MAKE IT ASCII 
STAX NUMKP SAVE REGARDLESS 
BIT SIGN1F SEE IF SIGNIFICANCE STARTED 
BMI SETS1G YES - ALL ARE IMPORTANT NOW 
CMPIM $30 ELSE SEE IF SHOULD START NOW 
BNE SET31G IMPORTANT IF NOT ZERO 
RTS ELSE RETURN 

3ETSIG SEC SET SIGNIFICANCE BIT ON 

HOR SIGNIF ALWAYS 

DEX AND POINT TO NEXT AVAILABLE POSITION 

PGMEND RTS AND THEN RETURN 



SYMBOL 

ACHR 

ADONE 

CHARQ 

CMPDON 

CRLF 

EXEC 

-FWD 

IFLAG 

ISOPR 

JDO 

LST 

MCOMX 

MXNMCH 

NAME 

OPMNUS 

PADLOP 

RESTRT 

SETBGN 

SJLOOP 

START 

TE 

TRYDSP 

VTRANS 

XCQ 

XM 

XT 



TABLE 

029E 

02BD 

0245 

0334 

834D 

0252 

0279 

0087 

02FF 

03C4 

0000 

0381 

036E 

002B 

0317 

0231 

0255 

0483 

0470 

0200 

0418 

0224 

049C 

02 CA 

0356 

0412 



2000 22iiA 
ACHRQ 02A8 
ANSX 008D 
CHKCOII 026D 
CMPLOl' 02DA 
CUR AD 
FLG 
FVDQ 
ILNEX" 
ISPLQ 
JF 

MCHK 
MNUMB 
MXNOLi 1 
NAMEO 
OPRAH' 
PGMENIi 
RESULT 
SETNL 
SJRTS 
STRTS1 027E 
TFLAG 0275 
TRYREI 022D 
WORK 
XE 



0097 
0002 
045A 
041B 
04C6 
03D8 
035E 
0385 
0391 
0443 
008F 
04F9 
008B 
024D 
0481 



0089 
03F7 



XQUES1 0282 



XU 



03A9 



ACHRR 

BITROL 

CHROUT 

CNVDSP 

EGET 

FMNEXT 

GETIDX 

INCHR 

ISPLR 

LINEND 

MCHKX 

MX 

MXSETN 

NOTNMB 

OPWRAP 

PRT 

RETURN 

SETSIG 

SKPJNK 

TAKEIN 

TOOUT 

VARIBS 

XA 

XFWD 

XR 

XXFVD 



02AE 
02EF 
044F 
04A8 
020C 
03E8 
0494 
8A1B 
04E1 
0457 
035B 
03A5 
03A3 
02F9 
0324 
0421 
0095 
04F5 
046E 
0297 
04E6 
0053 
028B 
0353 
040B 
040F 



ACHRS 

CHAR 

CHRS 

CR 

ELINE 

FNDMRK 

HOLDY 

IREST 

ISPLUS 

LSTART 

MCOMMA 

MXDIFF 

MXY 

NUMDSP 

OUTCHR 

RESTRQ 

SCURAD 

SIGNIF 

SKPNXT 

TALOOP 

TOVRIB 

VBDISP 

XC 

XJ 

xs 



02B6 
02 3F 
0003 
ODOD 
0207 
03DB 
0088 
03ED 
04C4 
0263 
0376 
039E 
036A 
0090 
8A47 
025E 
0463 
008E 
026A 
0342 
034B 
0439 
02C3 
03BE 
03FO 
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flUl THIS PflCStf Flfll 

IE Eitar Jala h firm dalciu 

3E Ucic mail-iEr. 

3E [flail term J 

cm NasiaDa _(_a ijarscrial ' 

ii miln Saialcg 
5C Eld 

UJall Ucfia! / 

Follow this simple program and you will receive 
The Personal Computer Catalog. The one refer/- 
ence book to fine quality personal computers, 
software, supplies and accessories. I 

This valuable catalog is FREE so mail your order . 
today. / 




Address. 
City 



_State__ 



Do you own a computer?. 



.What type? 



Do you use your computer for: 
Personal? _________ Education? 



Business?, 
_Other? 



Mail this form to: 



COcldon£kzd:roniQ 

c:r_r_\ /|i\ ir_ -ru-icr ncrr- icr ii\ i /\ i ^** (—nix /mf itt_:_o ii\ ini \crra\s mr 



SERVING THE PERSONAL 
Or phone: (612) 884-1475 



COMPUTER INDUSTRY ■ 
/ Weldon Electronics 

J 4150 Hillcrest Road 





es<s 



microsystems 



P.O. Box 687 

224 S.E. 16th Street 

Ames, Iowa 50010 



Dflim 




DAIM is a complete disk operating system for the FIOCKWELL INTERNATIONAL 
AIM 65. The DAIM system includes a controller board (with 3.3K operating system in 
EPROM) which plugs into the ROCKWELL expansion motherboard, packaged power 
supply capable of driving two 5 1/4 inch floppy drives and one or two disk drives 
mounted in a unique, smoked plastic enclosure. DAIM is completely compatible in 
both disk format and operating system functions with the SYSTEM 65. Commands 
are provided to load/save source and object files, initialize a disk, list a file, list a disk 
directory, rename files, delete and recover files and compress a disk to recover 
unused space. Everything is complete — plug it in and you're ready to go! DAIM 
provides the ideal way to turn your AIM 65 imo a complete 6500 development 
system. Also pictured are CSB 20 (EPROM/RAM) and CSB 10 (EPROM programmer) 
which may be used in conjunction with the DAIM to provide enhanced functional 
capability. Base price of $850 includes controller board with all software in EPROM, 
power supply and one disk drive. Now you know why we say — 



There is nothing like a 



Phone 515-232-8187 



THE MICRO SOFTWARE 
CATALOG: XII 



Mike Rowe 

P.O. Box 6502 

Chelmsford, MA 018 A 



Name: AIM 65 Morse Code Send Program 
System: AIM 65 
Memory: Less than 1K 
Language: Assembly Language 

Hardware: One IC (inverter), one relay (no relays 
necessary for solid state transmitters) 

Description: This program converts the AIM 65 keyboard 
input into Morse code characters that are then output to 
pin PAOon the applications connector. A suitable buffer 
(two 7404 inverters) will key the transmitter or drive a 
relay. The following feature are provided: 

1) The characters are displayed on the AIM 65 display 
as they are typed on the keyboard. Up to 20 
characters may be displayed, with a 20 character 
overflow buffer, giving the ability to type 40 
characters ahead. 

2) The display is updated (scrolled to the left) as the 
characters are sent. 

3) The display is updated as the characters are entered. 

4) The DEL key allows characters to be deleted (back- 
space and delete). 

5) Code speed is set and controlled digitally by entering 
the speed (in decimal) on the keyboard. Speeds from 
05 to 99 wpm are possible. 

6) The speed can be changed at any time by pressing 
the ESC key, followed by entering the speed in words 
per minute. 

7) A message being sent may be halted at any time by 
means of the carriage return key. 

Copies: Just Released (hopefully thousands) 
Price: $3.50 

Includes: Source listing in the AIM 65 dissasembly for- 
mat interface description, and instructions 
for operation. 

Author: Marvin L. De Jong 

Available from: Marvin L. De Jong 
S.R. 2, Box 364A 
Branson, MO 65616 



Nam ( : MONITOR-II 

Systf in: APPLE-II 

Mem iry: 3K + DOS 3.2 requirements 

Lang lage: Machine Language 

Hard rare: APPLE-II, DISK-II 

(Supf orted) High speed serial card, Programmer's Aid 

ROM Applesoft ROM 



ption: MONITOR-II is an extension to Apple's 
Monitor that adds an interactive command 
nge. MONITOR-II provides the user: Extended cur- 
mtrol-Named program load, initialize, and execute 
lape or disk-Programmer's Aid ROM #1 interface 
:ommands-Transient area management-Variable 
listings-Split screen display-Special I/O routine 
irt-User extensible interactive commands-Integer 
i; Variables Utility-Resident supervisor-much 



Desc 

ROM 

langi 

sor c 

from 

and 

speei 

supp 

BASI 

more 

Copic a: Just released 

Price $45.00 on disk (Introductory) 

lnclu< les: System disk, user's guide 

Optic ial: Assembly listings, systems guide 

Auth< ■: W.C. Deegan 

Avail, .ble from: W.C. Deegan 

2 Fairfax Towne 
Southfield, Ml 48075 



Name Single Drive Copy 
Syste n: APPLE 
Memc ly: 16K 
Langi uge: Integer BASIC 

Descr Dtion: Allows you to copy a diskette using one 
drive. Automatically adjusts for available memory and 
come with the option of not initializing disk. 
Copie;: 10 
Price: $19.95 + $1.00 postage & handling (PA residents 

add 6% sales tax). 
Indue lis: Cassette with instructions. 

Authc : Vince Corsetti 

AvailE ble from: Progressive Software 
P.O. Box 273 
Ply. Mtg., PA 19462 
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Name: CLASS ATTENDANCE 

CHURCH ATTENDANCE 

System: PET 
Memory: 8K or more 
Language: BASIC 
Hardware: PET, 8K or larger 

Description: Class Attendance & Church Attendance 
maintain attendance records for any group which meets 
regularly, using data tapes. The school version records 
to 5 days' attendance for each of up to 39 weeks. The 
church version does the same for to 5 times for each 
of 12 months. 

Attendance automatically sorts entires alphabetical- 
ly within & between data tapes. Though presently 
dimensioned for up to 10 tapes of 70-85 names each, 
there is no limit to the number of tapes that can be us- 
ed. 

Commands include: ADD, DELETE, LIST, UPDATE, 
END & CATEGORY. Within CATEGORY there are 8 sub- 
commands for frequency of attendance, (perfect atten- 
dance this month, for example). There is also a Help 
command to escape to the main menu from anywhere in 
the program, and a Back-up command to correct 
mistakes in updating. With four SIMPLE line changes, 
PET's with the upcoming roms can use Attendance 
also. 

Copies sold: Just released. 

Price: $12.95 (either version) 

Includes: Program cassette with sample Directory & 
sample data, 2 blank C-10 tapes for data, and 
a 6 page instruction booklet with lists of vari- 
ables used & location of major routines. 

Author: James Strasma 

Available from: Dr. Daley 

425 Grove Av. 

Berrien Springs, Ml 49103 

(616) 471-5514 (Sun-Thurs, Noon-9PM) 

(Master Charge & Bank Americard OK) 



Name: Omni Plotting Package 

System: APPLE 

Memory: 32K 

Language: BASIC 

Hardware: Disk and Applesoft on ROM 

Description: 7 data sets and 2 exec file examples 12 
basic programs, employ the High Resolution Mode. No 
shape tables are used, data base is Cartesian coor- 
dinates which can be sent over the phone or to hard- 
copy plotters. Package allows ease of intricate graphics 
generation supported by easy manipulation of graphics 
after generation. Package is excellent for map making, 
drafting, artistry and any other purely visual application. 

Price: $19.00 + $5.00 for diskette or you send one. We 
pay postage. 

Includes: 12 basic programs, 7 data sets, 2 examples, 19 
page illustrated users manual with step by step 
instructions. 

Author: P.S. Truax 

Available from: Omni Plotting Package 

c/o P.S. Truax 

237 Star Rte. 

Santa Barbara, CA 93105 



Name: Applesoft BASIC-Optimization Library 

System: AF>PLE II 

Memory: 1I5K 

Language: 6502 Assembly Language 

Hardware: Standard (Applesoft ROM card optional) 

Description: The Library consists of two 1.3K assembly- 
language programs (VAROPT &. REMOUT) that will work 
in any APPLE II with APPLOSOFT lla, VAROPT renames 
all variables to unique 1-2 character variable names and 
displays (prints) a cross-reference listing with new 
name, old name, and all line numbers where the variable 
was referenced. REMOUT removes remarks, removes 
extra colons, renumbers from 1 by 1, and concatenates 
short lines into a reduced number of long lines. 

Together, these programs will convert a verbose, well- 
documented development version of an Applesoft pro- 
gram into an extremely memory-efficient, more-secure 
production version. 

Copies: Just Released 

Price: $15/Cassette, $20/Disk 

Includes: Cassette/disk with hex listing & instructions 

Available from: Sensible Software 

P.O. Box 2395 

Dearborn, Ml 48123 



Name: APPLE XFR 

System: APPLE II with disk 

Memory: 32K 

Language: Machine Language 

Hardware: Apple II, Disk II, D.C. Hayes Micromodem II 

Description: This program will establish a session bet- 
ween two Apples and allow transfer of any text file from 
one to another. All text file I/O is written in machine 
language. Programs are also included to facilitate the 
conversion of any Integer or Applesoft program to a text 
file. 

Copies: Just released 

Price: $15.<I5 on diskette 

Includes: Diskette and documentation 

Author: Travis Johns 

Available from: Travis Johns 

1642 Heritage Cr. 

Anaheim, CA 92804 



Name: OTHELLO 
System: APPLE 
Memory: 1I5K 
Language: Integer BASIC 

Description: A game played by one or two players. Once 
a piece is played the color may be reversed many times, 
with sudden reverses of luck. Can win with a single 
move. Computer keeps all details and flips the pieces. 

Copies: 10 

Price: $9,915 + $1.00 postage & handling (PA residents 
add 6% sales tax). 

Includes: Cassette with instructions. 
Author: Vince Corsetti 



Available from: 



Progressive Software 

P.O. Box 273 

Ply. Mtg., PA 19462 
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8080 Simulation with a 6502 



The design for an 8080 simulator running on the 0502 
illustrates how your micro can assist program devel- 
opment for other machines, master new applications, 
and double the quantity of software it will execute. 



Dann McCreary 

Box 16435-M 

San Diego, CA 92116 




Why Bother to Simulate? 

While many advantages of simulating 
one microprocessor with another might 
be cited, there are several which I 
believe stand out above the rest. 

Educators and students can use 
simulation software as an enhancement 
to introductory courses in microprocess- 
ing. Such courses often make use of 
single board microcomputers like the 
Commodore KIM-1. These computers 
provide invaluable hands-on experience. 
The addition of simulation software can 
multiply their effectiveness by enabling 
the study of alternate architectures and 
instruction sets without the expense of 
purchasing more hardware. 

The entrepreneur and the hobbyist are 
typically owners of systems based on a 
single type of processor. Should a situa- 
tion arise in which they would like to 
develop software for some other pro- 
cessor, they are faced with another 
significant capital investment. The 
availability of simulation packages 
which can run on their present hardware 
can make it economical to design and 
debug code for other processors. 

Applications software fulfilling par- 
ticular functions is sometimes hard to 
come by. Some might claim that the 
availability of a given application varies 
inversely with the need for a version writ- 
ten for the microprocessor available to 



run it on. Enter simulation software and 
your choice of applications c 3 n be easily 
doubled. One good example might be 
the use of an inexpensive 8080 
assembler for a one-time Sask rather 
than going to the time or expanse of pro- 
ducing a cross-assembler. 

The experimenter, ne^er quite 
satisfied with the status quo, can use 
simulation techniques to try out his 
theories about an optimized instruction 
set. He can, in software, mo^el the pro- 
cessor of his design and by doing so he 
can gather actual data about I he validity 
of his ideas. 

The major and most obvious draw- 
back to simulating one micrc processor 
with another is the large spesd penalty. 
In the Cosmac 1802 Simulator which I 
have implemented on the 650:2, about fif- 
ty 6502 instructions are execi ted in the 
course of executing one 18C2 instruc- 
tion. In my 8080 Simulator, twice as 
many or more are required for each 8080 
instruction executed. High sseed real- 
time code or applications requiring 
precise timing relationship:) derived 
from instruction cycle timing ire clearly 
outside the scope of this technique. 

A somewhat lesser problen involved 
is the space occupied by tho simulator 
program, which must be co- - 3sident in 
memory with the application program. 
Careful design here can make the 



simulator quite compact but it does take 
up a finite amount of space. 

For a majority of applications, I feel 
that the advantages of using a simulator 
overshadow the drawbacks, making this 
type of modeling very worthwhile. 

Optimizing the Approach 

A simulation of sorts could be ac- 
complished by compiling or translating 
the code of an 8080 into 6502 code. This 
approach would in fact be advantageous 
from an execution speed standpoint and 
would be a good choice if running ap- 
plication software were the only con- 
sideration. It would, however, generate 
large amounts of code and would not 
meet some of the other objectives I had 
for an 8080 simulator. 

The interpretive approach seemed to 
best fulfill my self-imposed re- 
quirements. It would provide an ac- 
curate model of the 8080 processor, 
complete with all internal registers and 
duplicating all 8080 instructions. It 
would allow for single stepping or trac- 
ing through an 8080 program invaluable 
for debugging and for educational pur- 
poses. An interpreter could be very code- 
efficient, not only using little memory 
itself but also allowing 8080 object code 
to run unmodified in a 6502 environment. 

I could have taken a "brute force" ap- 
proach to interpretation, using perhaps 
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a table lookup scheme and transfering 
to a separate routine for each 8080 op- 
code. This offered some advantages in 
simplicity and execution speed but it re- 
quired far more memory than I cared to 
use. 

A careful analysis of the 8080 instruc- 
tion set suggested that the 256 table en- 
tries and routines required by a "brute 
force" technique could be reduced by 25 
by grouping the 8080 op-codes into 
categories sharing common functions. 

In addition, certain judicious tradeoffs 
could be made between simplicity and 
ideal features, taking best advantage of 
the addressing modes and features of 
the 6502. For instance, the 6502 stack 
resides in page one and many of the 
6502's instructions and addressing 
modes make use of page zero. To avoid 
memory use conflicts it would have been 
nice to simulate 8080 memory starting at 
0200 HEX, making that address 
equivalent internally to 0000 HEX. This 
would have required a great deal of 
overhead in the form of a special 
monitor to show addresses minus the 
200 HEX offset. 

The addresses being used by the 8080 
program while running would nave to be 
converted dynamically, and in order to 
use indirect addressing a special set of 
simulated registers would have to be 
maintained in page zero. Besides requir- 
ing much more code, this would slow ex- 
ecution speed down considerably. I 
decided instead to simply require the 
user to patch around the small areas in 
page zero and page one being used by 
the simulator. 

Final Design Overview 

Laying out the 8080 instruction set 
graphically on a hexadecimal grid, as il- 
lustrated, reveals some interesting 
features. Four major divisions are ap- 
parent, neatly dividing the instruction 
set into quadrants. The second quadrant 
is composed alomst entirely of MOV in- 
struction op-codes. This MOV group 
most clearly illustrates the way that 
8080 op-codes break down into source 
and destination fields, and suggests the 
best way to organize simulated 8080 
registers in memory. 

With simulated registers arranged 
properly In memory, source and destina- 
tion field data can be extracted from the 
op-code and used as indexes to the 
registers involved. In every case where 
instructions act upon individual 
registers their order, as dtermined by 
this source/destination indexing scheme 
is B.C,D,E,H,L,M,A— where M is not an 
actual register but rather the content of 
the mrmory location pointed to by the 
HL register pair. 

This order suggests a general method 
for accessing individual registers with 
some slight exceptional logic for the M 



"pseudo-register". By inverting the 
source and destination indexes and 
reversing the order of the 8080 registers 
in memory it becomes possible tc use 
the HL register pair directly as an in- 
direct pointer to memory. Addinc the 
Stack Pointer and Program Counter to 
the register array in the same reversed 
order completes the simulated register 
set. 

Looking again at the instruction set 
grid it can be seen that a symmery ex- 
ists based on the source field of tie op- 
code. For instance, all INR instructions 
have source fields containing 0'- HEX 
while all DCR instructions have 05 HEX 
as their source field. The fourth 
quadrant exhibits similar symmetry. The 
third quadrant is more logically dafined 
by the destination field, but still cmdes 
into 8 groups of similar instructions as 
do the first and fourth quadrants, "nese, 
along with the entire MOV quadrant, 
total 25 groups of similar instructi 3ns. A 
major task, then, of the simulator 
mainline is to determine from tho op- 
code which of the 25 groups it belor gs in 
so tht control can be transfered to the 
proper routine to interpret it. 

To keep the simulator as compact as 
possible it is advantageous to puform 
as many common operations as possi- 
ble in the mainline. Fetching the op- 
code, extracting source and destination 
indexes from it and incrementing the 
Program Counter are fundamental. The 
mainline also fetches the content of 
memory pointed to by the HL register 
pair, clears a flag used by many 
simulator routines, saves data from the 
register pointed to by the destination in- 
dex for later operations, tests for and 
handles interrupts and handles other 
"housekeeping" type functions. 

At the end of the mainline the address 
of the selected interpreter routine is 
pushed onto the stack along with a 
preset status. A 6502 RTI instruction is 
executed, transferring control to tlva pro- 
per module entry. 

It is the responsibility of each module 
to correctly interpret all op-codes which 
result in a call to that module. Each 
module is constructed as a subroutine, 
returning control to the mainline via an 
RTS. This also enables certain modules 
to be used as subroutines by other 
modules. A brief look at the modul 3S and 
their support subroutines will hela to il- 
lustrate their functions. 

MOV. While encompassing the largest 
number of op-codes of any module, MOV 
has perhaps one of the simplest tasks. It 
merely takes the content of the register 
indicated by the source index and stores 
it in the register pointed to liy the 
destination index. No condition f ags in 
the PSW (Processor Status Word) are af- 
fected. The only slight complication 
whether the destination is memory, in 



which case the HL register pair is used 
as an indirect pointer to store the result 
in memory. 

INX/DCX. This module must increment 
or decrement a selected register pair. 
The least significant bit of the destina- 
tion index is tested to determine 
whether the instruction is an increment 
or a decrement instruction. The bit is 
then dropped and what remains is an in- 
dex to the proper register pair— except 
for the cases of 33 HEX and 3B HEX 
when the Stack Pointer is the register 
pair of interest. In these cases, the pro- 
per index for the Stack Pointer is substi- 
tuted. 

With the proper index set, a call is 
made to INCDEC. INCDEC is a 16 bit ad- 
der designed to add two zero page 16 bit 
operands. With the 6502's X and Y in- 
dexes properly set at the entry to this 
support routine, the content of a double 
precision one (0001 HEX) or a double 
precision minus one (FFFF HEX) is add- 
ed to the chosen register pair, perform- 
ing the increment or decrement. 

The proper register pair is selected in 
the same fashion for the DAD and LXI in- 
structions also. 

INR, DCR, MVI. These instructions are 
very consistent in their use of the 
destination index for determining which 
register (or memory as the case may be) 
they operate on. INR and DCR have the 
added complication of modifying the 
PSW condition bits, with the exception 
of the 8080 Carry. 

Rotates. This is a mixture of quite dif- 
ferent instructions lumped into one 
module. Proper execution depends on 
separating the Rotate instructions from 
the DAA, STC, CMC and CMA instruc- 
tions, providing special logic for each 
and insuring the proper setting of PSW 
flags. 

PUSH/POP. While handling register 
pairs somewhat like INX, DCX, DAD and 
LXI do, these instructions differ in 
substituting a register pair made up of 
the 8080 Accumulator and PSW for the 
Stack Pointer. The simulator handles 
this by looking for the special case and 
then decrementing the destination index 
to the proper position. The Stack Pointer 
is then incremented or decremented ap- 
propriately and the register pair data 
transferred to or from the stack as re- 
quired. 

Several support routines come into 
play, including INCDEC and various 
routines for transferring the content of 
register pairs between each other and 
memory. An intermediate register pair 
(not illustrated) is utilized as a tem- 
porary storage location during the ex- 
change of register pairs. I've labeled it 
simply "SCR", though I believe it bears 
an actual hardware analog in the 8080 in 
the form of a hidden register pair, tem- 
porary registers W and Z. 
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CALL and RETURN. These also 
manipulate the stack, using it as a 
storage location for the content of the 
Program Counter. The same set of sup- 
port routines are used to get the transfer 
address from memory (for the CALL in- 
struction) and to move data to and from 
the stack memory. RST is treated like a 
CALL instruction, except that the 
transfer address is computed from the 
destination field of the op-code rather 
than taken from memory- Conversely, 
JUMP gets its transfer address from 
memory, but does not save any return 
address on the stack. 

Condition Codes. CALL, RET, and 
JMP all make use of a subroutine called 
COND1T. CONDIT examines the destina- 
tion index derived from the op-code and 
subdivides it into a condition index and 
a True/False indicator bit. The index is 
used to select a PSW bit mask from a 

table of masks. These masks align with 
the appropriate bit in the PSW. Based on 
the state of the selected PSW bit and the 
True/False indicator bit, CONDIT returns 
an indication of whether or not the JMP, 
CALL, or RET should take place. 
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Arithmetic and Logic. These instruc- 
tions occupy the third quadrant of the in- 
struction set. Rather than being grouped 
vertically by their source fields they are 
grouped horizontally by their destination 
fields. This is due to the fact that while 
they may have different sources of data, 
they all have one implied destina- 
tion—the 8080 Accumulator. The CMP 
instruction is the only one of this group 
which does not place its results in the 
Accumulator. It merely discards the 
result, setting only the PSW flags accor- 
dingly. This is accomplished by forcing 
the destination index to point to a scrat- 
chpad location. 

Probably one of the most difficult 
things to simulate successfully is the 
proper setting of the Processor Status 
Word. Different instruction groups af- 
fect different subsets of PSW flags but 
the Arithmetic and Logic group affect all 
the flags. Zero, Sign and Parity flags are 

always affected as a group. A routine 
called STATUS sets these three flags 
simultaneously when a result is passed 
to it. Carry and Auxilliary Carry are 
handled separately as they may be af- 
fected in isolation by some instructions 
and not affected at all by others. 

Special Features. For the purpose of 
using the simulator as a debugging tool, 



I chose to trap unimplementec op- 
codes. When the 8080 Simulator deter- 
mines that the current instruction is an 
illegal op-code it forces a jump tD the 
system monitor. This can be used 'o ad- 
vantage as a simple type of breakpoint. 
Alternately, a table of breakpoint ad- 
dresses may be set up in memory. After 
each instruction, the 8080 Program 
Counter is compared to each address in 
the breakpoint table. If a match is found, 
a jump is forced to the system monitor. 
This makes it possible to step from 
breakpoint to breakpoint, seeing the 
result of groups of steps rather than only 
individual steps. 

I/O Instructions. I/O is also handled 
via a table of addresses. Each ertry in 
the table is the address of a port n the 
6502 system. The entries in the table are 
associated with 8080 ports in sequential 
ascending order. Setting of the Data 
Direction Register, as in a 6530 FIO, is 
handled transparently to the user. 

Call 65. I have "borrowed" one Df the 
8080's unimplemented op-codes for a 
special purpose function— calling 6502 
subroutines from an 8080 program. This 
enables you to use existing system I/O 
routines and other utilities. All thai is re- 
quired is to add brief header and irailer 
routines to transfer the required para- 
meters to and from simulator registers 



and 6502 registers used by the sub- 
routine. The CALL 65 instruction may 
also be useful forhandling time depen- 
dent code segments. 

Summary 

Modeling one microprocessor with 
another is a technique which provides 
many potential benefits. It has certain 
significant drawbacks, most notable of 
which is a large penalty in execution 
speed. These drawbacks, however, are 
not of paramount importance in a large 
number of applications in instructional, 
personal and experimental use. 

Designing such a simulator involves 
tradeoffs between the complexity and 
quantity of the coding required for the 
task on one hand, and the features and 
execution speed of the final product on 
the other. I chose to minimize the quanti- 
ty of code, emphasizing commonality of 
functions within the simulator. 

Simulators for the 8080 and Cosmac 
1802 microprocessors are available from 
the author in versions designed to run on 
the Commodore/MOS Technology KIM-1. 

Thanks to Gary Davis for his generous 
support in the form of access to his 8080 
system and his assistance in running 
comparison tests. fu 
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PftOGRRfnmiNG THE 6502 

By Rodnay Zaks 
320pp,refC202 SIO.95 

An introductory programming 
text for the 6502. Does not 
require any prior programming 
knowledge. From arithmetic 
to interrupt-driven input-output 
techniques. It hos been de- 
signed as a progressive, step 
by step course, with exercises 
in the text designed to test the 
reader at every step. 

6502GHfMS 

By Rodnay Zaks 

refG402 SI 3.95 

From Piano to tic tac toe, in- 
cluding many popular games, 
and how to program your own. 
To be published. 



6502 APPLICATIONS BOOK 
by Rodnay Zaks 
275pp,refD302 SI 2.95 

Presents a series af practical 
(hardware & software) applica- 
tions for any 6502 board. 
Applications can be used as 
experiments - or implemented 
at minimal cost. A few ex- 
amples: marse generator, elec- 
tronic piano, digital clock, 
home alarm systems, traffic 
controller.. ..and more! 

TO ORDER 

Syphon*: 415848-8233, Visa, M.C., 

American Express. 
By mall: Include payment. 
Shipping charge*: add 65C per book 

4lh class -allow 4 weeks -or $1.50 

per book for U.P.S. Overseosadd 

$3. 00 per book. 
Tax: in California add tax. 
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DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 





ISO-1 "^J ISO-2 

Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our ur ique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
•ISOLATOR I ISO-1 A) 3 filter isolated 3-prong sockets; 
integr;' Surge/Spike Suppression; 1875 W Maximum load, 

1 KW lead any socket $94.9S 

•ISOLATOR USO-2I 2 Hher isolated 3 prong socket banks; 

fcS sockets total); integral Spike/Surge Suppression; 

1875 IH Max load. 1 KW either bank $54.95 

•SUPE R ISOLATOR (IS03), similar to ISO-1A 

except double filtering 8i Suppression .... $79.95 
•ISOLATOR (ISO-4), similar to ISO-1 A except 

unit has 6 individually filtered sockets .... $93.95 
•ISOLATOR (ISO-5), similar to ISO-2 except 

unit has 3 socket banks, 9 sockets total ... $76.95 
•CIRCUIT BREAKER, any model (add-CBI Add $ 6.00 
•CKT BRKR/SWITCH/PILOTany model 

(-C3SI Add $11.00 

M) PHONE ORDERS 1-617-655-1532 ^g 

/£& Electronic Specialists, Inc. 



171 South Main Street. Natick, Mass. 01760 



Dept/lli 



• 
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PRESENTS IT'S 

UTILITY PAC II 




CHECKBOOK UPDATE TO DOS 

AN EXEC FILE WRITES OVER YOUR CHECKBOOK 
PROGRAM TO AUTOMATICALLY UPDATE IT TO DOS 

INI EX FILE UPDATE 

AUTOMATES BISHOP'S INDEX FILE 

FIH CONTROL CHARACTER 

WILL DISPLAY CONTROL CHARACTERS ON ANY 
CATALOG OR PROGRAM LISTING 

SLCW LIST 

FULL STOP S START CONTROL WITH EXIT. WORKS 
WITH APPLESOFT OR INTEGER BASIC 

LIST HEADERS 

PUT HEADERS ON YOUR LISTINGS WITH NO LINE 
NUMBERS OR REM STATEMENTS. AP [I 

AU10 WRITE 

AU10 WRITE INSTRUCTIONS 

USE EXEC FILES TO APPEND, ADD SUBROUTINES, 
OR EDIT PROGRAMS. CONVERT INTEGER TO APPLE- 
SOFT. DELETE ILLEGAL LINE NUMBERS ETC. ETC. 

EXEC READER 

READS TEXT FILES FOR ABOVE 

DISC SPACE 

COMPLETELY WRITTEN IN APPLESOFT. WORKS 
IN 3 SECONDS. GIVES FREE SECTORS AND BYTES 
WITH LISTINGS AND DOCUMENTATION., PRICE $19.95 

.......... DISC MANAGEMENT SYSTEM ..•....«• 

EIGHT PROGRAMS ON DISK TO PROVIDE THE USER WITH A 
COMPLETE UNDERSTANDING OF THE DISK DRIVE COMMANDS 
PLUS A UTILITY PACKAGE TO INDEX 6 CATAGORIZE ALL 
PROGRAMS WRITTEN FOR THE APPLE II COMPUTER. THE 
SYSTEM PROVIDES FULL SEARCH, EDITING AND DATA 
TRANSFER CAPABILITIES. 

A TWENTY-SIX PAGE BOOKLET PROVIDES DETAILED, 
EDUCATIONAL TEQUNIQUES GIVING A THROUGH UNDERSTAND- 
ING OF THE DOS COMMANDS. 

SYSTEM REQUIREMENTS: DISK II k APPLESOFT TAPE OR ROM 
PRICE $19. 9S ON DISK FOR EITHER OF ABOVE 

(PROCESSED S SHIPPED WITHIN 4 DAYS) 
SEND CHECK OR MONEY ORDER TO: 

SOFTOUCH 

P.O. BOX Sll 

LEOMINSTER, MASS. 01453 




*~ A APVENTURS 

'■ 3l"" t -* ! ^,^-- , GAMES OF HIGH ADVENTURE 
T^T 4, FOR THE APPLE II FROM 

SYNERGISTIC SOFTWARE 

5221 120th Ave, S.E. 
Bellevue, WA 98006 



The Apventure games combine the exciting graphics and 
sound effects capabilities of the APPLE II with the fas- 
cinating complexity of a mythical adventure game. 
Monsters, hazards, obstacles, weapons, magical devices 
and evil powers confront the player at every turn as 
you gather treasure and try to reach your goal. Two 
adventures are now available: 



DUNGEON CAMPAIGN - Full color graphics 
subterranean adventure. 16K required. 
CASS, $1 2.50 DISK $1 5.00 

WILDERNESS CAMPAIGN - HIRES graphics 
surface adventure. 48K required. 

CASS. $15.00 DISK $17.50 



GET BOTH ON ONE DISK FOR $30.00 
(WA Res. add 5.3% sales tax) 



MORE INNOVATIONS! 



FROM 



P.S, SOFTWARE HOUSE 

FORMERLY PETSHACK 

PET™ INTERFACES 



NEW! 

PET to CI! ITRONICS INTERFACE 



PET (o 2r 1 CASSETTE INTERFACE 



$9aoo 



PET™ SCHEMATICS 



FORQNl 
24" X 30 
Monitor < 

painstakii 



FOR ONI 
Complete 
points; Vi- 
Time Clo 
Monitor p 
You cant 



> $24.95 YOU GET: 
schematic of the CPU board, plus oversized schematics of the Video 
nd Tape Recorder, plus complete Parts layout - all accurately and 
c ly drawn to the minutest detail. 

PET™ ROM ROUTINES 

\ $19.95 YOU GET: 

Disassembly listings of all 7 ROMS, plus identified subroutine entry 

10 Monitor, Keyboard- routine, Tape Record and Playback routine, Real 

b, etc. To entice you we are also including our own Machine Language 

c gram for your PET using the keyboard and video display. 

e ve the Monitor program on cassette for only $9.95 extra. 

SOFTWARE 

6502 DIS a SSEMBLER $12.95 

MAILING .1ST - For personal or business applications. S9.95 

MACKINI I ANGUAGE MONITOR • Write Machine Code. Save on tape $9,95 

BUDGET MEW Keep-track of Bills and Checks. Update as needed $14.95 

STARTRE < • All-time favorite written for the PET's special Graphics $7.95 

Sent lor our free SOFTWARE BROCHURE. Dealer inquiries welcome. 

P.S. SOFTWARE HOUSE 

P.O. G ox 966 Mishawaka, IN 46544 

P| Tel: (219) 255-3408 gg 



Put Yourself in Control with the 

=APPLETHROTTLE 

Thaf s right! The APPLETHROTTLE will turn 
your game paddles into a speed controller. 
By simply pushing a button, you can stop 
your computer for as long, as you want 
Release the button, and your computer 
enters a slow-motion mode with one 
paddle controlling the speed. And if that 
isn't enough, look at these additional 
features: 

• Plugs into any slot 

• Works with machine language, Integer 
BASIC, and Applesoft 

• Normal • slow - stop 

• Use to LIST, TRACE, RUM, etc. 

• MO SOFTWARE to load _ - ., 

. Unveil program secrets -^PPUZTHROTTLE $89.95 

And there's more! Mo more multiple LIST commands to view small program 
sections. With the APPLETHROTTLE, you'll be able to list or trace long 
programs while watching your program flow in slow-motion. So get in control 
with the APPLETHROTTLE and order yours today! 




APPLETIME,a Real Time Clock 
for the Apple II. Plugs directly into any 
slot and keeps time even when 
computer is off. Features 12/24 
Hour, BCD/ ASCII data format and 
AC/Crystal time base selection. 
Includes software examples for 
machine language and BASIC pro- 
grams. Completely assembled and 
tested. 
APT-1 Real Time Qock $79.95 



PROTOBOARD.with over 1300 
holes on 0.1 centers for designing 
your own circuits. 
APB-1Protoboard .... $17.95 



VERBATIM5V4" DISKETTES 

Soft-Sector Box of 10 . . . $34.50 

(plastic file case included) 




west side electronics 

P.O'. Box 636, Chatsworth, CA 9131 1 

We pay alt shipping in Continentai-U S.A. 
Others add 10%. California residents add 6% tax 



® 



TEXTCAST 

Tui n your PET into a WORD PROCESSOR 
cor i parable to large systems for a fraction 
of t le cost! 

CFiEATE-REVIEW-EDIT FILES 
ON TAPES OR DISKS 



PF NT TEXT-LETTERS-FORMS- 
TAE3LES 

TEXTCAST FITS YOUR PET 
S>STEM, OLD AND NEW ROMS 

CLEAR INSTRUCTIONS! 

Pric os: Tape plus manual, $60. 

Diskette plus manual, $65. 

Manual separately, $20. 
Wrisa: TEXTCAST M9 

P.O. Box 2592 

CHAPEL HILL, N.C. 27514 



Writing for MICRO 



Who writes for MICRO? Subscribers just like 
yourself! How does one go about it? Read on! 



Shawn Spilman 

Box 6502 

Chelmsford, MA 01824 



The kind of material published in 
MICRO can be broken down into three 
general categories: application notes 
describing hardware or software pro- 
jects, tutorials conveying general infor- 
mation about specific subjects, and re- 
views presenting informed opinion. The 
division into categories is not hard and 
fast; one easy way to get published is to 
write a piece whose very novelty defies 
categorization. Yet most articles pub- 
lished in MICRO and other magazines 
describe a project, or a concept, or a pro- 
duct, and can be labelled accordingly. 

The label serves a purpose by remin- 
ding the writer that abstract theory may 
be out of place in an application des- 
cription; working laboratory projects 
may detract from a tutorial; and opinion, 
the mainstay of reviews, is alien to both 
other forms. 

This article is a tutorial on the subject 
of writing technical articles. It illustrates 
how most anyone can write a piece that 
will be received gratefully by any number 
of magazines, including MICRO, and it 
explains exactly why one would want to 
do so. Because it is a tutorial, and not an 
application note, it will not present step 
by step instructions that could be ex- 
ecuted in sequence, with the usual back- 
tracking and microbe debugging, to pro- 
duce a working (publishable) project. If it 
did, about ten thousand readers would 
promptly deluge MICRO with drafts of 
essentially identical manuscripts. 



Instead, we will examine e;ich 6T the 
three forms of technical prose, describe 
some easy ways to get started, mention 
a few techniques that may t€ applied 
along the way, and encouraiju you to 
rush the result directly to MICFO. 

Application notes 

Many personal computers are much 
like the H.O. railroad train toys of two 
decades ago: expensive indulgences 
that Occupy a few delightful hours on 
Christmas day and spend this next six 
months gathering dust on a cloiset shelf. 
A decent model railroad used to run big 
bucks, what with engines and ;ars and 
lots of track segments, turnels and 
crossings and enough plastic ne brake- 
men to simulate featherbedding. 

Yet once assembled, it served only 
one useful purpose. Like mortisl trains, 
the personal computer may provide little 
more than entertainment the d ly it is un- 
packed and assembled. It cai play all 
kinds of games, and play most of them 
exceedingly well. It comes complete 
with a formidable library of recreational 
software. Whether any individual 
machine ever rises above recreational 
applications depends entirely upon the 
dilligence and ingenuity of its cwner. 

This explains why many pro(|iamming 
buffs scorn "personal coirputers." 
Quite a few data processing profes- 
sionals actually eschew the t<irm itself, 




perhaps because there is little that is 
personal in computing and less that is 
computational in pure and simple 
gamesmanship. The measure of any 
computer lies in its ability to implement 
true data processing applications. 

Recreation is a legitimate application, 
of course, but no one doubts that per- 
sonal computers can be recreational. 
The question is, "Can they be applied to 
other problems?" Can they afford eco- 
nomical, effective solutions to the 
classical problems of data manage- 
ment? Can they admit to new applica- 
tions reflecting the unsolved problems 
raised by recent technology? 

We suspect that the answer is a re- 
sounding yes, and we can demonstrate 
this by describing applications that are 
served by personal computers. Each ap- 
plication implemented successfully en- 
hances the versatility of the machine 
that was used to perform the task and, 
perhaps more important, each makes 
the next application all that much easier 
to implement. 

A 6502 application note will benefit 
the entire 6502 community if it describes 
the solution to an open problem or an 
application never before implemented 
on a particular machine. Beneficial ar- 
ticles might also report new or unusual 
approaches to problems that have been 
solved using different methods. The 
novelty, general applicability, and over- 
all ellegance of the solution are quite im- 
portant because, after all, brand new ap- 
plications that solve open problems are 
very rare. 

It is easy to write an article that 
describes a computer application. This 
is fortunate because the application is 
not fully implemented until it has been 
described in writing. An application note 
should describe the problem that was 
solved, the method of solution, and the 
implications of the method. It should 
answer the questions: "What?" and "So 
what?" 

It is impossible to overrate the value 
of a problem description. Serious com- 
puter scientists are constantly refining 
their ability to evaluate problems, assign 
them to categories or classes, distin- 
guish those solved in the past from 
those that remain open, separate the 
easy from the difficult, generalize the 
solution to other applications, and ex- 
tract specific techniques that might 
serve well in future projects. 
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This skill derives from exposure to 
problems, as well as solutions. So state 
the problem clearly. Describe the situa- 
tion that caused the problem. Indicate 
its analogs in related situations. Outline 
previous attempts to solve the problem, 
and mention the measure of their suc- 
cess or the reason for their failure. 

You will only have to deal with your 
solution once, now that it is fully im- 
plemented, yet whether you are describ- 
ing a simple memory test routine or a 
mind boggling speech synthesizer, yet 
another fast Fourier transform or the 
first algorithm to play a competitive 
game of GO, you will undoubtedly en- 
counter your problem over and over 
again. Few people understand the prob- 
lem as well as you do, now that you have 
solved it once. Take the time to describe 
it well, so that you and everyone else will 
recognize all of its manifestations. 

The problem solution is most often a 
program or a piece of logic. Software 
solutions and hardware solutions have 
much in common. Most interesting prob- 
lems admit to solutions of either type. 

The best presentation of a software 
solution reproduces a working source of 
the actual computer program; that is, 
the assembler or compiler output listing 
o+ a program that was loaded and tested 
thoroughly immediately after assembly 
or compilation. 

Listings that were transcribed or 
manually corrected imply that the per- 
son who made the copy or revision is 
less prone to error than the computer. 
The entire article is likely to be viewed 
with the same scepticism anyone would 
accord this implication. As a rule, let the 
computer generate the program listing. 

It goes without saying that any pro- 
gram worth coding is worth commen- 
ting. Or does it? The first self explana- 
tory computer program remains to be 
written. If and when it finally appears, 
odds are that it will contain comments. 

The program description is perhaps 
the least important part of an applica- 
tion note. The program is right there, 
after all, Gleanly coded and with ample 
commentary. The big question, 
"What?", has been answered by the pro- 
blem description and the source listing. 

Authors stress program descriptions 
because they provide an effective mech- 
anism for answering the question, "So 
what?" The description illustrates why 
an application is deserving of study. It 
points out noteworthy aspects of the 
designer's methodology, perspective or 
approach. It identifies techniques that 
may be generalized to solve other pro- 
blems. In much the way a map enhances 
appreciation of unfamiliar terrain, it un- 
covers pitfalls, highlights the points of 
interest, and distinguishes one parti- 



cular application from the vari<st/ of 
similar programs that almost always ex- 
ist as equivalent solutions. Is your 
memory test routine any different Irom a 
thousand others written since Baboage 
named the game? If so, the program 
description is the place to point this out. 

A hardware application note wi I re- 
quire a logic schematic in lieu of a pro- 
gram listing, block diagrams in place of 
flowcharts, pin out lists instead cf call- 
ing sequences, and perhaps a photo- 
graph. That photo might not provide 
much hard and fast information, but it 
relates your article to the real woild. 

Schematics and block diagrams are 
almost always drawn by hand and, there- 
fore, susceptible to errors no proof- 
reader will ever catch. Unlike software 
designers, whose computer geneiated 
source listings instill a measura of 
reader confidence, the hardware 
designer must rely on manual reproduc- 
tion techniques to express his im- 
plementation. That extraneous phcto is 
one exception to this rule. Like com- 
puters, cameras might not always; tell 
the truth, but they never make mistakes. 



Tutorials 

A tutorial is a short, complete and 
entertaining explanation of a technical 
subject. Unlike application notes, 
tutorials need not describe operational 
programs or projects that may be con- 
structed to perform useful tasks. Al- 
though they may include program seg- 
ments or circuit details, by way of illus- 
tration, tutorials present techniques for 
solving general problems, instead, and 
avoid specific problem solutions. 

The subject of a tutorial must be 
selected carefully to resolve the conflict- 
ing demands of brevity and complete- 
ness. A single chip, such as the 6522 or 
6532, might make a good subject. A ma- 
jor subsystem, such as a video driver or 
a tape I/O package, might be too com- 
plex to describe in sufficient detail. The 
general subject of subroutine calling se- 
quences would make a good tutorial; 
however, the subject of floating point 
math packages is much too broad. 

Because of its limited size, a tutorial 
may employ writing techniques that are 
not appropriate in other types of 
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technical prose. Use of the first person 
is common, for example, and casual or 
vernacular writing may be effective. 
These techniques help make the tutorial 
entertaining, fun to read; their use gives 
tutorials a big advantage over longer 
technical articles, which can tend to be 
rather dull. 

Of course, a tutorial must present 
more than warmed over material from 
the manufacturer's documentation or a 
clever rehash of material excerpted from 
a textbook. Like any other form of writ- 
ing, its impact depends upon the 
author's originality. Here again, careful 
selection of subject and perspective is 
the key to success. A fresh, innovative 
point of view applied to the right topic 
yields a tutorial that will practically write 
itself. 

Analogy is an effective technique that 
sets tutorials apart from run of the mill 
technical documentation. Virtually all 
significant hardware and software pro- 
blems have analogs outside of computer 
science. Textbooks cannot develop 
analogies for more than a few aspects of 
the material they treat without ranging 
far afield. Yet the tutorial, because of its 
limited scope, responds perfectly to the 
use of analogy. 

Historical perspective is another 
useful trick. A general solution is only as 



interesting as the general problem it 
solves, and the tutorial provides an ideal 
format for discussion of problems, as 
well as solutions. 

Innovative modelling can also pay off, 
to the extent that it is effective; but this 
little trick is fraught with risk. The author 
who devises his own paradigm has 
guaranteed originality and a fresh 
perspective right off the bat. If the model 
is effective, he might just become as 
famous as Hollerith with punched cards; 
Baudot with character codes; or Hamm- 
ing, whose simple concept of "distance" 
sold thousands of books. However, if the 
model is not effective, the tutorial fails. 
It is as simple as that, and the - e is no 
middle ground, but perhaps someone 
will print that questionable model as a 
humerous bit of satire. 

The writing style matters, in a tutorial, 
because virtually identical information 
is available from many other sources. Dr. 
De Jong's application note in this issue 
provides the only description of an AIM 
Notepad you will find anywhere; in con- 
trast, there are countless articles on 
even such an unlikely tutorial subject as 
writing articles. If you survived that 
freshman English composition course, 
enough said. But if you opted ins :ead for 
a tensor calculus elective, sorre com- 
mon sense guidelines will make ,1 whole 
lot of difference. 



Short sentences win big. Use first per- 
son, present tense, active voice. Avoid 
any grammatical construction you can't 
identify by name. Resist all impulse to 
employ parentheses, quotation marks, 
footnotes or dashes. And when in doubt, 
triple space the manuscript, leaving your 
editor plenty of room to ply his trade. 

If you ever wanted to write a book of 
nonfiction, a tutorial is really the ideal 
place to start. It only takes a few idle 
evenings, it requires a format in which it 
is difficult to bog down, and you can 
always use it as Chapter 27 of your hard- 
cover best seller. Besides, what could 
provide more motivation than your first 
royalty check? That check is only five 
typewritten pages away. 

Reviews 

MICRO has published very few pro- 
duct reviews, in the past, largely be- 
cause of uncertainty about how reviews 
should be solicited, prepared and pre- 
sented. MICRO will publish many more 
software, hardware and book reviews in 
future issues. This is how we plan to go 
about it. 

All product reviews must be solicited 
by the magazine. MICRO will not publish 
a review that simply shows up in the 
mail, because the act of writing an un- 
solicited review implies that the author 
has strong feelings about the product, 
one way or another, else he would not 
have troubled to prepare an unsolicited 
manuscript. 

The product must be submitted for 
review by the manufacturer. This is only 
fair, because a reviewer should feel free 
to make negative comments, and a 
manufacturer should be able to enjoy 
his monthly MICRO without encounter- 
ing those negative comments complete- 
ly unexpectedly. 

The manufacturer of a product, or the 
author of a book or program, must re- 
ceive a copy of the review, prior to pub- 
lication. Although manufacturers will 
not have the right to modify or suppress 
unfavorable reviews, they will be able to 
make comments or rebuttals and offer 
additional insights that the reviewer 
might have missed. 

Software and books submitted for 
review will become the property of the 
reviewer. Hardware will be provided, and 
the reviewer will have the option of pur- 
chasing this hardware at dealer cost. 

What's In it for me? 

More and more frequently, of late, 
manuscripts have arrived from writers 
who wished to retain exclusive owner- 
ship of their articles. MICRO has re- 
ceived copyrighted manuscripts, and a 
few authors have declined to fill out the 
ominously worded MS cover sheet. 
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Any piece of text can be copyrighted 
simply by writing "copyrighted by", and 
your name, and the date, and the magic 
symbol ©, somewhere near the front of 
the text. You can copyright your article, 
your computer program, your life story, 
or your laundry receipt. It is not 
necessary to hire a lawyer and send Un- 
cle Sam a draft. 

Now, your article remains your article 
whether it is copyrighted or not, and 
plagiarism of uncopyrighted material is 
plagiarism none the less. However, if 
your article is copyrighted, this means 
that it cannot be Xeroxed, it cannot be 
quoted at length, it cannot be trans- 
cribed or typeset, and it cannot be 
printed in any magazine. There is no 
point in sending a copyrighted article to 
MICRO, unless you think the editor will 
enjoy reading it, because enjoy it is 
about all he can do. 

MICRO is a business, like any other 
corporation, that tries to earn a profit 
purchasing raw materials, adding value 
by incorporating these materials into a 
marketable commodity, and selling the 
commodity. Articles comprise the raw 
materials; the magazine is the final pro- 
duct. The added value consists of 
editing, typesetting, proofing, paste-up, 
illustration, program listing generation, 
Pfinting, distribution, and all the other 
activities that make Chelmsford one 
frightfully busy place to work. 

This means that if you want to retain 
exclusive ownership of your article, and 
you also want to share it with others by 
printing it in MICRO, the hard facts of 
life require you to request an advertising 
rate card. 

When you submit an article for publi- 
cation, the editor and publisher collabor- 
ate with you to produce a piece that re- 
flects substantial effort on both sides. 
You receive an Jnjtla]_royalty payment, 
based upon the size of the piece,, in re- 
turn for the inspiration and effort you 
have expended on its preparation. 

You remain the author, and the article 
will never appear in print without your 
byline. You may receive additional pay- 
ments, called residuals, whenever the ar- 
ticle is reprinted or incorporated into 
another publication such as Best of 
MICRO. Residuals are based on the 
sales of the auxiliary publication and 
often exceed the original royalty pay- 
ment. 

Your article will not De published by 
anyone except MICRO without your per- 
mission. In return, of course, you must 
agree not to publish the article, on your 
own, without MICRO'S permission. As 
with most any magazine, MICRO would 
be proud to see your article incorporated 
into your very own book, presented at a 
conference, or included in an anthology. 



It appeared here first, after all, and imita- 
tion is a sincere, if unprofitable, form of 
flattery. Classic works of both fiction 
and nonfiction have appearec in 
magazines prior to publication as books. 

What if I don't get published? 

Rejecting an article is the mos: dif- 
ficult task any editor will be called jpon 
to perform, especially when the copy 
deadline draws near and space remains 
to be filled. The only common reasons 
for rejecting articles submitted to 
MICRO are: 

Too short 

Nothing new 

Incomplete 

and, very rarely, just entirely too difficult 
to prepare for publication. These pitfalls 
are surely easy enough to avoid. If your 
article is at least one page long and 
reflects original work, it will be publish- 
ed. If it is incomplete, you will be asked 
to supply additional material prior to 
publication. This might involve answers 



to questions that were raised and left 
open, comments to accompany program 
code, or background information most 
readers would require. 

Every so often an otherwise excellent 
manuscript simply jams the production 
machinery. One author's draft stubborn- 
ly refused to pass through the copying 
machine. Another included several yards 
of program listing, in a language the 
MICRO systems lab was not equipped to 
reproduce, all printed using blue ink 
which is invisible to photographic plate- 
making equipment. By all means avoid 
blue ink and electrostatic copies. More 
to the point, take a minute and consider 
what is required to convert your manu- 
script into a magazine article. Have you 
supplied the basic input required? If so, 
publication is all but guaranteed. 

The editor wishes to thank these per- 
sons who contributed their thoughts and 
assistance: Keating Wilcox, Dann Mc- 
Creary, Dr. Marvin L. De Jong, Philip K. 
Hooper, Robert M. Tripp. Illustrations by 
Bruce Conley. 
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The Basic Switch 



Attention "Old" Pet™ Owners: 

Not sure about the ROM Retrofit Kit from Commodore? 

Now you can use both sets of Commodore ROMs and others as well. 

The Basic Switch allows switch selection of either ROM set (your original set or 
your retrofit set) from Commodore. Plus, Model 15-A includes an additional zero 
insertion force socket allowing easy use of ROMs like the BASIC Programmer's Toolkit 
... concurrently. 

Model 14-E The economy model of The Basic Switch. Stand alone board and 
harness without case and case hardv/are. The free standing unit is 
ready to accept your ROMs. 

Model 14-D Same as Model 14-E but includes attractive protective case and 
mounted Basic Switch board. 

Note that Model 14 Series does not allow for expansion ROMs like the BASIC Pro- 
grammer's Toolkit. 

Model 15-A The Basic Switch plus ... includes expanded cable assembly and 
zero insertion force socket. Your 15th ROM simply plugs in ... enabled 
while either ROM set is selected. Socket 15 may be readdressed by 
the user for additional flexibility. 

The Basic Switch is sold in assembled form only. All models are designed for easy 
attachment to your Pet with a convenient cable assembly. No soldering or drilling 
is required. The Basic Switch mates with a cable assembly at your primary board, 
and does not use the physical connectors of any Pert ports. 

Model 15-A allows you to use the BASIC Programmer's Toolkit without the need for 
the additional $25.00 board or tying up your ports. And since we've designed 
the 15th socket to be readdressable, watch for more? ROM pacs later in the Fall. 

The Basic Switch: With installed ROM With BASIC 

Retrofit Kit from Programmer's Toolkit * 

Commodore: 

Model 14-E $64.95 $149.95 

Model 14-D $77.95 $162.95 

Model 15-A $99.95 $.184.95 $149.95 

Model 15-A with installed ROM Retrofit and Basic Programmer's Toolkit: $229.95 

Model 15-A with installed ROM Retrofit and both Toolkits: $274,95 

"Old" Pets were shipped with 24 or 28 pin ROMs. You must check which you have, 
and specify at time of order. 

Small System Services, Inc. 
The Basic Switch™ is a product of 9 °° Spring Garden Street 

Greensboro, North Carolina 27403 
"Telephone 919-272-4867 

Pet™ is a trademark of Commodore Business Machines, Inc. of Santa Clara, Calif. 
The BASIC Programmer's Toolkit is a product of Palo Alto IC's, A Division of Nestar 

byStemS, Hie. North Carolina residents add 4% sales tax. All orders add S2.50 shipping. 
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Presents 
Software and Hardware for 'our APPLE 



SALES FORECAST provides the best forecast using the four 
most popular forecasting techniques: linear regression, log 
trend, power curve trend, and exponential smoothing. Neil D. 
Upson's program uses artificial intelligence to determine the 
best fit and displays all results for manual intervention. $9.95 

CURVE FIT accepts any number of data points, distributed in 
any fassion, and fits a curve to the set of points using log 
curve fit, exponential curve fit, least squares, or a power curve 
fit. It will compute the best fit or employ a specific type of fit, 
and display a graph of the result. By Dave Garson. $9.95 

PERPETUAL CALENDAR may be used with or without a 
printer. Apart from the usual calendar functions, it computes 
the number of days between any two dates and displays suc- 
cessive months in response to a single keystroke. Written by 
Ed Hanley. $9.95 

STARWARS is Bob Bishop's version of the original and best 
game of intergallactic combat. You fire on the invader after 
aligning his fighter in your crosshairs. This is a high resolution 
game, in full color, that uses the paddles. $9.95 

ROCKET PILOT is an exciting game that simulates blasting off 
in a rocket ship. The rocket actually accelerates you up and 
over a mountain; but if you are not careful, you will run out of 
sky. Bob Bishop's program changes the contour of the land 
every time you play the game. $9.95 

SPACE MAZE puts you in control of a rocket ship that you 
must steer out of a maze using paddles or a joystick. It is a real 
challenge, designed by Bob Bishop using high resolution 
graphics and full color. $9.95 

MISSILE ANTI-MISSILE displays a target on the screen and a 
three dimensional map of the United States. A hostile sub- 
marine appears and launches a pre-emptive nuclear attack 
controlled by paddle 1. As soon as the hostile missile is fired, 
the U.S. launches its anti-missile controlled by paddle 0. Dave 
Moteles' program offers high resolution and many levels of 
play. $9.95 

MORSE CODE helps you learn telegraphy by entering letters, 
words or sentences, in English, which are plotted on the 
screen using dots and dashes. Ed Hanley's program also 
generates sounds to match the screen display, at several 
transmission speed levels. $9.95 

POLAR COORDINATE PLOT is a high resolution graphics 
routine that displays five classic polar plots and also permits 
the operator to enter his own equation. Dave Moteles' program 
will plot the equation on a scaled grid and then flash a table of 
data points required to construct a similar plot on paper. $9.95 

UTILITY PACK 1 combines four versatile programs by Vince 
Corsetti, for any memory configuration. 

POSTAGE AND HANDLING 

Please add $1 .00 for the first item 
and $.50 for each additional item. 

• Programs accepted for publication 

• Highest royalty paid 



• Int sijer to Applesoft conversion: Encounter only those 
syi tax errors unique to Applesoft after using this program 
to ;onvert any Integer BASIC source. 

• Di; k Append: Merge any two Integer BASIC sources into a 
sirgle program on disk. 

• Int Jijer BASIC copy: Replicate an Integer BASIC program 
fro ti one disk to another, as often as required, with a 
sirgle keystroke. 

• Apj esoft Update: Modify Applesoft on the disk to elimin- 
ate 1 he heading always produced when it is first run. 

• Bii ary Copy: Automatically determines the length and 
stE ring address of a program while copying its binary file 
fro t, one disk to another in response to a single key- 
strjke. $9.95 

BLOCKADE lets two players compete by building walls to 
obstruct each other. An exciting game written in Integer 
BASIC >y Vince Corsetti. $9.95 

TABLE 3.ENERATOR forms shape tables with ease from direc- 
tional \ectors and adds additional information such as star- 
ting ad Iress, length and position of each shape. Murray Sum- 
mers' A oplesoft program will save the shape table anywhere in 
usable nemory. $9.95 

OTHEL .0 may be played by one or two players and is similar 
to chess in strategy. Once a piece has been played, its color 
may b< reversed many times, and there are also sudden 
reverse ; of luck. You can win with a single move. Vince Corset- 
ti's program does all the work of keeping board details and 
flippinc pieces. $9.95 

SINGLI DRIVE COPY is a special utility program, written by 
Vince C orsetti in Integer BASIC, that will copy a diskette using 
only on ; drive. It is supplied on tape and should be loaded onto 
a disks Me. It automatically adjusts for APPLE memory size 
and sh( i Id be used with DOS 3.2. $19.95 

SAUCER INVASION lets you defend the empire by shooting 
down 6 flying saucer. You control your position with the pad- 
dle wh ki firing your missile at the invader. Written by Bob 
Bishop S9.95 

HARDWARE 

LIGHT 'l:N with seven supporting routines. The light meter 
takes ir tensity readings every fraction of a second from to 
588. Th< light graph generates a display of light intensity on 
the scr :en. The light pen connects points that have been 
drawn en the screen, in low or high resolution, and displays 
their ccordinates. A special utility displays any number of 
points c n the screen, for use in menu selection or games, and 
selects a point when the light pen touches it. The package in- 
cludes ■ light pen calculator and light pen TIC TAC TOE. Neil 
D. Lips. >n's programs use artificial intelligence and are not 
confused by outside light. The hi-res light pen. only, requires 
48Kanc FfOMcard. $34.95 

TO ORDER 

Send check or money order to: 

P.O. Box 273 

Plymouth Meeting, PA 19462 

PA residents add 6% sales tax. 



U.S. and foreign dealer and distribu.or inquiries invited 
All programs require 16K memory unless specified 



305 Riverside Drive. New York. N.Y. 10025 



Quadruple your PET's graphic resolution. Why be 
New Version stuck with the ?ET's cumbersome 25 x 40 1000 point 

display. With Graphics Pac you can directly control 
(set and clear) 4000 points on screen. It's great for graphing, plotting, and gaming. Graphics 
Pac allows you to plot in any combination of two modes 4 Quadrant graphing with (0,0) center 
screen, and Standard graphing with (0,0) plotted in the upper left hand corner. Complete docu- 
mentation shows how you can merge this useful routine with any of your own programs with- 
out retyping either one! All this on a high quality Microsette for only $9.95. 

A full featured assembler for your PET microcompu- 
ter that follows the standard set of 6502 mnemonics. 
Now you can take full advantage of the computing 
abilities of your PET. Store and ioad via tape, run through the SYS or USR functions. List and 
edit too with this powerful assembler. No other commercial PETassembler gives you all these 
features plus the ability to look at the PET'S secret Basic ROMs all in one program. This valu- 
able program is offered at $15.95. 

An exciting new simulation that puts you in 
charge of a bicycle manufacturing empire. Juggle 
inflation, breakdowns, seasonal sales variations, 
inventory, workers, prices, machines, and ad campaigns to keep your enterprise in the 
black. Bike is dangerously addictive. Once you start a game you will not want to stop. To 
allow you to take short rest breaks, Bike lets you store the data from your game on a tape 
so you can continue where you left off next time you wish to play. Worth a million in fun, 
we'll offer BIKE at $9.95. 

Dynamic usage of the PET's graphics features 
with sound ! when combined with the fun of the number 1 arcade 

game equals a,n action packed video spectacle for 
your computer. Bumpers, chutes, flippers, free balls, gates, a jackpot, ard a little luck 
guarantee a great game for all. $9.95. 

Give your PET a workout. This program really 
puts the PET'? graphics to work. Super Doodle lets 
you use the screen of your PET like a sketch pad. 
Move a cursor in eight directions leaving a trail of any of the 256 charactrs the PET can 
produce. New features include an erase key that automatically remembers your last five 
moves, a return to center key, and clear control. Why waste any more paper, buy Super 
Doodle for onlv $9.95. 

Non stop excitement with a fast moving, high 
paced version of your favorite video arcade racing 
games. Shift up! Shift Down! Watch your gas, and 
be careful on those hairpin turns. This dynamite tape has the two most common arcade 
racing games specially adapted to run on your PET Computer. Driving Ace simulates an 
endless road packed with tight turns and gentle, but teasing, twists. Starting with fifty 
gallons of gas, how far can you go with a minimum of accidents? Grand Prix places you 
and your car on a crowded racing track. Race the clock and be careful steering- around the 
fast but packed Grand Prix track. $9.95 

Dealer Rates On Request 
Authors. We offer UNBEATABLE royalties 
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S15.95 




STATE CAF 




FORMAT 

GRAMMA's FOR . (Version 1.0) 
is a command oriented text processor de- 
signed to be fully compatible with PIE 
(PROGRAMMA Improved Editor). 

system of imbedded commands 
within the text) give it an ease of oper- 
ation similar to text formatters found on 
some mini-computers. 

features right margin justifi- 
cation, centering, page numbering, and 
auto-paragraph indent. 

The following commands are available 
with FORMAT; 

Begin adjusting right margins 
n Begin page numbered n 

Cause a line break 
n Center next n lines without fill 

Start filling output lines 
t Foot title becomes t 
t Head title becomes t 
n Indent n spaces from left margin 
n Literal, next n lines are text 
n Line length including indent is n 
n Set line spacing to n 
n Top spacing including head title 
.m2 n Spacing after heading title 
m3 n Spacing before foot title 

n Bottom spacing including foot title 

Stop adjusting right margins 

Stop filling output lines 
n Page length is n lines 
n Begin paragraph^ ,sp, ,fi, .ti n 
n Space down n lines, except at top 
n Temporary indent of n 
n Underline next n input lines 



All orders include 3% postage and handling. 
Apple II is a registered trademark of Apple 
Computer, Inc. 

California residents add 6% Sales Tax 
VISA & MASTERCHARGE accepted. 





S15.95 



EXPAND A PORT S49.95 
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PROGRAMMA 
INTERNATIONAL, Inc. 

3400 Wilshire Blvd. 
Los Angeles, CA 90010 

(213) 384-0579 
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